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1  INTRODUCTION 

Empirical  evaluation  of  the  reliability,  accuracy,  and  reproducibility  of  vital  signs  monitoring 
(VSM)  devices  hns  historically  been  an  intractable  problem.  In  the  civilian  sector,  the  problem  has 
been  partially  circumvented  by  drastically  limiting  the  prescribed  operational  environment 
requirements. 

In  the  case  of  military  VSM  devices,  it  is  impossible  to  drastically  constrain  the  operational 
environment  requirements.  Military  vital  signs  monitors  must  perform  reliably  in  conventional  and 
NBC  warfare  situations,  across  extreme  temperatures,  over  unique  garments,  in  high  noise  and 
vibration  environments,  over  a  wide  range  of  altitudes,  and  in  contaminated  surroundings.  These 
severe  operational  requirements  have  prompted  the  Army,  Air  Force,  and  Navy  to  invest  many 
millions  of  dollars  over  the  past  six  years  in  an  effort  to  develop  a  system  capable  of  supporting 
battlefield  casualties.  As  a  consequence,  the  unique  requirements  of  the  DoD  and  the  extensive 
funding  of  this  research  and  development  effort  have  resulted  in  significant  advances  in  the  state- 
of-the-art  of  vital  signs  monitoring  instrumentation. 

While  these  advances  greatly  surpass  commercially  available  technology,  they  have  not  been 
accompanied  by  comparable  advances  in  requisite  test  and  evaluation  methodology  and 
instrumentation.  As  a  result,  we  now  find  ourselves  in  the  disheartening  position  of  having 
sophisticated,  high  performance  devices,  but  grossly  inadequate  methodology  and  instrumentation 
for  credible  evaluation  of  device  reliability,  accuracy,  and  reproducibility.; 

The  purpose  of  this  research  and  development  effort  is  the  development  of  testing  and 
evaluation  methodology  and  instrumentation  which  wiil  permit  the  credible  evaluation  of  VSM 
devices  in  both  the  advanced  development  phase  and  in  the  production  quality  control  phase. 


2  BACKGROUND 

The  task  of  evaluating  medical  devices  for  military  deployment  includes  the  determination 
of  device  survivability  and  functional  performance.  The  issue  of  VSM  device  survivability  can  be 
adequately  determined  with  existing  test  and  evaluation  (T&E)  methodology  and  instrumentation. 
These  procedures  are  documented  in  various  military  standards  documents  (e.g.,  MIL-STD  810D, 
461,  462,  etc.).  In  contrast  to  this,  the  issue  of  VSM  device  functional  performance  is  not  covered 
by  any  applicable  military  T&E  standards;  thus,  guidance  is  sought  from  civilian/commercial 
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standards. 

At  the  present  time  the  Food  and  Drug  Administration  (FDA)  has  not  promulgated 
performance  standards  for  vital  signs  monitors  that  determine  blood  pressure  and  heart  rate.  The 
FDA’s  principal  function  regarding  medical  devices  is  to  verify  safety  and  manufacturers’  claims 
regarding  performance.  The  FDA  informally  employs  a  voluntary  industry  performance  standard 
promulgated  by  the  Association  for  the  Advancement  of  Medical  Instrumentation  (A AMI  SP-10)  for 
the  assessment  of  electronic  blood  pressure  monitors.  With  regard  to  heart  rate,  we  are  not  aware  of 
any  FDA  or  non- FDA  performance  standards. 

A  A  MI  SP-1C  requires  clinical  evaluation  of  electronic  blood  pressure  monitors.  For  each 
functional  performance  test  condition,  a  minimum  of  fifty  aoninvasively  instrumented  human 
subjects  or  fifteen  invasively  instrumented  human  subjects  are  required. 

Since  commercial  civilian  devices  normally  have  only  ONE  test  condition  (room  temperature, 
bare  arm,  NO  noise  or  vibration,  near  sea-level  altitude),  the  experimental  risk  involved  with  the  use 
of  fifteen  invasively  instrumented  human  subjects  (fluoroscopically  instrumented  with  an  intra¬ 
arterial  catheter)  is  relatively  small.  However,  if  many  different  combinations  of  test  conditions  are 
required  (as  is  the  case  with  military  requirements),  the  associated  risk  to  human  volunteers  rapidly 
increases  to  a  level  at  which  invasive  testing  is  not  justifiable. 

The  alternative  to  invasive  testing  is  to  noninvasively  instrument  the  human  test  subjects. 
The  AAMI  standard  requires  a  minimum  of  fifty  such  human  subjects  (having  a  wide  range  of  blood 
pressures)  and  requires  that  the  device  performance  be  determined  bv  comparison  to  the  auscultatory 
method  (detection  of  Korotkoff  sounds  via  a  stethoscope  by  a  trained  technician).  In  addition  to  the 
fact  that  multiple  test  conditions  require  multiple  measurements  on  the  $04-  human  subjects,  using 
the  auscultatory  method  as  a  standard  presents  a  MAJOR  problem  for  testing  under  military 
operational  conditions.  The  auscultatory  method  DOES  NOT  work  in  high  noise  and  vibration 
environments;  it  is  very  unreliable  when  obtained  through  heavy  garments  (such  as  MOPP  gear),  and 
is  biased  by  the  subjectivity  of  the  measurement  obtained  by  the  technician1.  While  this  subjectivity 
error  can  be  controlled  under  normal  conditions,  testing  under  adverse  conditions  (e.g.,  extreme  heat 
or  cold)  will  significantly  confound  the  measurement,  necessitating  that  the  experimental  design 
include  many  more  measurements  than  normally  than  are  normally  required. 

Furthermore,  the  blood  pressure  and  heart  rate  are  very  labile  physiological  parameters  -  they 
can  change  dramatically  in  very  short  time  periods.  Reasons  for  such  changes  include  physical, 
physiological,  and  psychological  stress.  For  example,  systolic  blood  pressure  has  been  shown  to 
change  as  much  as  50  mmHg  in  as  little  as  30  seconds2.  Heart  rate  can  decelerate  to  zero  in  as  little 
as  one  heat  or  can  increase  as  much  as  50%  in  a  few  seconds.  All  techniques  measure  a  physiological 
parameter  at  a  specific  point  in  time.  Unless  one  is  certain  that  blood  pressure  and  heart  rate  are 
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stable,  the  results  from  a  single  measurement  become  invalid  in  a  very  short  time  period  and  repeated 
measurements  are  essential.  Furthermore,  during  rapidly  changing  blood  pressure  and  heart  rate 
conditions,  both  manual  and  automatic  measurements  yield  erroneous  results.  That  is,  the 
measurement  does  not  yield  either  the  initial  value  nor  the  final  value,  but  some  intermediate  value 
of  questionable  validity. 

Multiple  measurements  on  many  human  subjects  takes  a  considerable  amount  of  time..  Each 
time  a  counter-pressure  cuff  is  inflated  to  occlude  blood  flow  to  an  extremity,  it  causes  ischemia  and 
disturbs  the  normal  physiology  of  the  extremity.;  This  is  a  real  limitation  of  all  noninvasive  blood 
pressure  measurement  techniques,  intermittent  occlusion,  separated  by  reasonable  time  intervals, 
permits  restoration  of  normal  physiology  to  the  extremity.  However,  rapid  repetition  of  occlusion 
by  a  cuff  will,  as  time  progresses,  become  more  and  more  like  continuous  occlusion.  This  is  contra¬ 
indicated  not  only  because  of  the  adverse  effects  on  the  extremity,  but  also  because  it  attenuates  the 
physical  phenomena  normally  employed  in  the  measurement  of  blood  pressure.  While  two  or  three 
measurements  in  rapid  succession  should  not  create  problems,  monitoring  over  a  period  of  an  hour 
or  so  should  be  done  at  pbout  five  minute  inte*vals  and  monitoring  for  longer  time  periods  should 
be  done  using  longer  time  intervals  between  measurements.  In  this  way,  the  effect  of  the  previous 
measurement  does  not  affect  the  results  of  the  subsequent  measurement. 

The  requirement  for  multiple  human  subjects  results  in  the  necessity  for  multiple  cuff 
applications.  Proper  selection  and  application  of  the  cuff  is  important  for  accurate  determination  of 
blood  pressure.  In  both  the  osc biometric  and  statometric  blood  pressure  measurement  technique,  the 
cuff  is  the  ultimate  transducer,  without  which  a  measurement  cannot  be  achieved.  In  automated 
versions  of  the  auscultatory  technique,  the  microphone  is  normally  located  within  the  cuff,  once 
again  making  proper  cuff  placement  essential.  Proper  selection  of  cuff  size,  relative  to  the  diameter 
of  the  extremity  will  prevent  false  or  cuff  hypertension3.  Cuff  hypertension  is  an  erroneously  high 
blood  pressure  reading  that  occurs  because  the  pressure  in  the  cuff  is  not  completely  transmitted  to 
the  underlying  artery.  This  normally  occurs  when  the  cuff  width  is  small  compared  to  the 
circumference  of  the  extremity.  Cuff  placement  is  also  important  m  automated  blood  pressure 
measurement.  In  a  device  using  the  auscultatory  technique,  placement  of  the  microphone  over  an 
artery  maximizes  signal  detection  and  minimizes  erroneous  readings.  In  a  device  that  uses  the 
statometric  technique,  the  distal  sensing  cuff  acts  analogous  to  a  "microphone".  The  best  placement 
requires  that  the  middle  of  t^e  air  bladder  be  located  over  an  artery,  but  without  contacting  the 
proximal  occluding  cuff  (e.g.  over  the  radial  artery  of  the  arm  immediately  below  the  elbow). 

All  instruments  are  subject  to  noise/vibration  induced  errors  and  "noise  immunity"  is  always 
a  matter  of  degree.  While  it  is  normally  impossible  to  prevent  vehicle-related  noise/vibration  during 
patient  transport,  this  is  not  usually  the  case  with  patient-related  noise/vibration  Patient  motion 
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represents  a  significant  impediment  to  the  measurement  of  blood  pressure;  this  is  obvious  for  manual 
phenomena  that  either  mimic  or  interfere  with  the  signals  that  automated  devices  use  for  determining 
blood  pressure.  Gross  movement  of  the  whole  arm  or  leg  can  create  "false"  pressures  in  the  counter¬ 
pressure  cuff,  leading  to  a  blood  pressure  that  is  either  higher  or  lower  than  the  coirect  reading. 
Flexion,  extension,  or  rotation  of  the  hand  or  foot,  especially  in  a  rhythmic  fashion,  can  create 
signals  identical  to  those  used  by  the  oscillometric  and  statometric  techniques.  The  ultimate  defense 
against  patient  motion  artifacts  is  to  prevent  patient  voluntary  motion.  The  penultimate  defense  is 
to  observe  the  patient’s  extremity  during  the  measurement  and  exercise  caution  in  interpreting  the 
results  if  significant  patient  motion  was  observed  during  the  measurement. 

One  must  also  be  aware  of  the  pressure  difference  due  to  the  position  of  the  extremity.  The 
vertical  distance  between  the  heart  and  the  blood  pressure  sensor  causes  a  systematic  error  in  the 
blood  pressure  measurement*.  For  every  five  inches  of  vertical  distance,  the  pressure  error  exceeds 
nine  millimeters  of  mercury. 


3  APPROACH 

In  order  to  fabricate  a  test  fixture  for  vital  signs  monitors,  we  must  completely  understand 
the  physics  and  physiology  of  each  technique  for  noninvasive  blood  pressure  measurement  - 
auscultatory,  oscillometric,  and  statometric. 

3.1  General 

•n  order  to  measure  arterial  pressure  nonir.vasively,  one  must  apply  a  blood  pressure 
cuff  around  the  arm.  The  cuff  pressure  is  transmitted  through  the  tissue  and  acts  on  the 
outside  surface  of  the  artery.  If  the  external  pressure  acting  on  the  artery  is  greater  than  the 
internal  arterial  pressure,  the  artery  collapses,  interrupting  flow  in  the  artery.  Various 
techniques  detect  this  event,  reporting  the  cuff  pressure  required  for  the  zero  flow  state  as 
systolic  pressure.  These  techniques  also  measure  or  estimate  diastolic  and  mean  pressures. 

3.2  Auscultatory 

The  auscultatory  method  of  measuring  blood  pressure  consists  of  listening  for 
Korotkoff  sounds  as  the  cuff  is  deflated  from  above  systolic  pressure  to  below  diastolic 
pressure.  There  is  disagreement  as  to  the  origin  of  these  sounds5.  Korotkoff6  believed  that 
the  sounds  were  caused  by  the  arterial  walls  "slapping"  against  each  other  as  pulses  of  blood 
passed  through  the  partially  occluded  artery..  Gittings7  believed  that  the  sounds  were  caused 
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by  sudden  distention  of  the  compressed,  partially  occluded  artery.  Other  theories  include  a 
mechanism  involving  dynamic  instability  of  a  viscoelastic  system  of  tissue8.  Conrad  et  al 
believe  that  these  sounds  are  caused  by  fluid  turbulence9.  No  conclusive  scientific  evidence 
has  yet  been  obtained  to  prove  or  disprove  any  of  these  theories. 

In  our  attempt  to  model  the  human  limb,  we  used  a  combination  of  Korotkoff* s  theory 
and  that  of  Conrad  et  al.  The  vessel  which  we  have  designed  permits  the  "slapping"  of  the 
artery  as  it  closes  upon  partial  occlusion.  In  addition,  a  microphone,  which  is  fluidically 
coupled  to  the  arterial  line  distal  to  the  occluding  cuff,  is  used  to  pick  up  the  sound  for 
fu.ther  amplification.  Thus,  any  sounds  generated  by  turbulence  or  "slapping"  can  be  sensed 
at  this  position. 

3.3  BPS  Theory 

The  BFS  Theory®  (Blaumanis,  Falk,  and  Samaras)  describes  the  principles  of  the 
noninvasive  measurement  of  blood  pressure.  Researchers  in  the  field  of  venous  occlusion 
plethysmography  noticed  that  when  an  occluding  cuff  was  applied  to  the  arm  and  the  cuff 
pressure  was  held  at  a  pressure  above  venous  occlusion  pressure,  the  distally  measured 
intravenous  pressure,  became  equal  to  the  cuff  pressure10.  We  repeated  these  experiments  and 
found  that  the  intravenous  pressure  equals  that  of  the  cuff  from  a  pressure  just  above  venous 
occlusion  until  mean  arterial  pressure  (MAP)  is  reached. 

The  explanation  is  as  follows.  Consider  the  limb,  distal  to  the  occluding  cuff,  as  a 
control  volume.  Normally,  on  average,  the  arterial  inflow  equals  the  venous  outflow.  The 
entire  pressure  drop  (arterial- venous)  occurs  at  the  level  of  the  microcirculation,  the  arterioles 
and  capillaries.  Now,  if  the  cuff  is  inflated  to  just  above  venous  occlusion  pressure  (say  10 
mmHg)  the  outflow  will  cease  momentarily.  As  a  result  of  the  diminished  flow,  the  total 
pressure  drop  is  also  diminished,  since  the  latter  is  due  primarily  to  the  viscous  frictional 
losses  in  tne  microcirculation.  Thus,  the  reduced  flow,  due  to  outflow  obstruction,  results  in 
an  increased  pressure  within  the  down-stream  elements  of  the  vasculature,  the  venules  and 
veins.  The  incipient  increase  in  venous  pressure  under  the  occluding  cuff  will,  therefore, 
tend  to  open  the  collapsed  veins  and  flow  will  resume.  At  this  point  a  dynamic  equilibrium 
is  established  where  venous  pressure  is,  on  average,  equal  to  cuff  pressure.  If  we  now  inflate 
the  occlusion  cuff  to  higher  and  higher  pressures  new  equilibrium  points  will  be  established 
such  that  venous  pressure  rises  to  the  level  of  the  cuff  pressure.  Obviously  a  point  must  be 
reached  where  venous  pressure  will  equal  arterial  pressure  and  flow  will  be  zero.  At  this 
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point  an  interesting  question  arises:  when  net  flow  is  just  reduced  to  zero  by  venous 
occlusion,  what  is  the  venous  pressure  and  therefore  the  cuff  pressure?  At  first  it  may  be 
tempting  to  suggest  that  these  pressures  should  be  equal  to  the  systolic  arterial  pressure.  In 
fact,  however,  the  pulse  pressure  is  virtually  entirely  damped  in  the  microcirculation  so  that 
nothing  corresponding  to  systolic  pressure  ever  appears  on  the  venous  side  of  the  circulation. 
The  venous  pressure  in  tne  outflow-occluded  stump  is,  in  fact,  equal  to  mean  arterial 
pressure.  This  fact,  which  we  have  confirmed  by  direct  measurement,  also  has  a  sound 
theoretical  basis.  The  average  driving  force  for  flow  in  the  microcirculation  is  the  root- 
mean-square  (RMS)  pressure.  To  the  extent  that  the  RMS  pressure  can  be  equated  to  the 
more  traditionally  defined  "mean  arterial  pressure",  we  see  that  the  magnitude  of  the  latter 
is  most  closely  related  to  measurable  dynamic  events  in  the  limb,  particularly  the  rate  of 
change  of  volume  as  a  result  of  blood  flow.  Thus,  mean  arterial  pressure,  which  has 
heretofore  been  defined  by  acclamation  or  measured  by  an  electronic  integration,  in  the  so- 
called  BFS  theory  emerges  as  a  real  physical  force.  Our  current  concept  of  the  reality  of 
MAP  is  fundamental  to  understanding  the  physiologic  mechanisms  of  the  oscillometric  and 
statometric  methods  of  measuring  blood  pressure. 

3.4  Oscillometric 

In  the  oscillometric  blood  pressure  method,  it  has  been  empirically  observed  that  as 
cuff  pressure  is  decreased  from  an  initial  pressure  above  systolic  pressure,  the  lowest  cuff 
pressure  which  gives  maximum  oscillations  in  the  cuff  pressure  is  MAP11.  Systolic  and 
diastolic  pressures  are  estimated  using  an  empirically-based  dual  slope  estimation  technique. 
The  MAP  determination,  f  urthermore,  has  never  been  physically  or  physiologically  explained. 
We  believe  that  the  BFS  Theory  describes  the  maximum  oscillations  occurring  at  the  point 
where  cuff  pressure  is  equal  to  MAP. 

The  oscillations  are  small  and  unchanging  when  the  cuff  is  above  systolic  pressure. 
This  is  caused  by  the  "leading  edge"  effect.  The  edge  of  the  cuff  proximal  to  the  occlusion 
is  influenced  by  pulses  in  the  proximal  artery,  or  "stump".  As  the  cuff  deflates  through 
systolic  pressure,  the  pulse  amplitudes  increase.  This  is  caused  by  the  pulses  partially  passing 
through  the  occlusion  and  creating  a  pulsating  pressure  in  the  cuff.  The  venous  pressure 
distal  to  the  cuff  increases,  and  approaches  the  mean  arterial  pressure  distal  to  the  occlusion. 
When  the  cuff  pressure  is  equal  to  MAP,  the  arterial  pressure  and  venous  pressure  distal  to 
the  occlusion  are  also  equal  to  MAP.  As  the  cuff  deflates  a  very  small  amount,  the  venous 
pressure  (MAP)  will  be  greater  than  the  cuff  pressure  (just  below  MAP).  Outflow  from  the 
distal  limb  commences.  Since  the  cuff  is  sensing  pulses  which  represent  a  net  flow 
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phenomenon,  the  pulses  sensed  by  the  cuff  stort  to  decrease  in  amplitude.  Thus,  the  pulse 
amplitudes  measured  by  the  cuff  have  a  maximum  at  MAP. 


3.5  Statometric 

The  statometric  technique  is  a  blood  pressure  measurement  technique  that  uses  a  low 
frequency  (on  the  order  of  0.15  Hz)  limb  volume  change  to  determine  blood  pressure12.  In 
this  technique  a  limb  volume  sensor  is  placed  distal  to  an  occlusion  cuff.  As  the  occlusion 
cuff  is  inflated  above  systolic  pressure  the  distal  limb  becomes  ischemic.  Within  a  few 
seconds  the  normal  autoregulatory  mechanisms  attempt  to  compensate  for  the  ischemia.  In 
effect  the  vascular  capacity  is  increased  by  vasodilation.  As  the  occlusion  cuff  is  slowly 
deflated  through  systolic  pressure,  the  distal  limb  volume  starts  to  increase.  As  the  cuff 
pressure  is  further  reduced  to  the  level  of  MAP  there  is  a  rapid  change  in  the  re te  of  filling 
of  the  distal  limb.  This  occurs  because,  as  predicted  by  the  BFS  theory,  venous  outflow  will 
begin  when  cuff  pressure  is  slightly  less  than  MAP,  At  this  point  the  limb  volume  vs. 
pressure  curve  shows  an  inflection  point  which  corresponds  to  the  beginning  of  outflow  and 
an  occlusion  cuff  pressure  equal  to  MAP,  Thus  systolic  pressure  is  the  point  at  which  the 
limb  volume  first  begins  to  increase  and  MAP  is  the  point  at  which  the  rate  of  increase 
changes  most  rapidly.  Diastolic  pressure  is  calculated  using  the  relation,  D-=i(3M-S). 


’Cm  or  disclosure  of  report  data  ia 
tubject  to  the  restriction  on  the  Title 
page  of  thia  Final  Report*. 


12 


GMS  Engineering  Corporation 


Contract  No.  DAMD17-88-C-8018 


4  DESIGN 

Fig.  1  sl.ows  the  schematic  diagram  of  the  fluidic  system  of  the  test  fixture.  This  system  is 
separated  into  two  sections.  The  first  section  is  called  the  heart  (inside  the  wood  box),  and  the 
second  is  called  the  arm  (limb). 


Figure  1.  Schematic  Diagram  of  the  Artificial  Arm  and  Heart 


4.1  Heart 

The  functional  diagram  of  the  heart  section  is  shown  in  Fig.  2.  The  inlet  of  a  gear 
pumpb  is  attached  to  a  reservoir  (simulating  the  venous  pool).  The  level  of  the  fluid  in  the 
reservoir  creates  a  pressure  head  on  the  inlet  of  the  pump  representing  central  venous 
pressure.  The  outlet  of  the  pump  is  attached  to  the  arm  as  well  as  a  restriction  simulating  the 
peripheral  resistance  of  the  rest  of  the  body. 

The  reservoir  is  heated  with  an  electrical  heating  element.  This  element  is  controlled 
with  a  bang-bang  controller.  The  temperature6  measured  in  the  reservoir  is  compared  to  a 


Cote  Parmer:  Pump  Head  Model  #7002*18,  Motor  Model  #7144*91,  and  Power  Supply  Model  #2630-90. 
c  The  temperature  sensor  is  Analog  Devices  AD590. 
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threshold  temperature  of  37°C.  The 
comparator  output  controls  the 
heater.  To  prevent 
overheating  of  the  reservoir,  the 
fluid  is  constantly  circulated  at  a 
minimal  rate.  This  prevents  any 
potential  for  localized  temperature 
gradients  and  possible  damage  to  the 
reservoir  or  heater.  When  the  heater 
is  on,  the  red  light  on  the  front  of 

the  wood  box  is  on.  This  is  to  Figure  2.  Functional  Diagram  of  the  Heart 
indicate  to  the  user  that  the  heater 
system  is  active, 

A  control  system  is  required  for  maintaining  the  arterial  pressure  stable  and  equal  to 
the  desired  pressure.  The  controller  consists  of  three  parts.  The  first  part  is  an  open  loop 
controller  The  computer  controls  the  pump  via  a  digital-to-analog  converter  (DAC);  the 
desired  pressure  is  converted  to  voltage  and  applied  to  the  pump  power  supply.  The 
conversion  was  determined  by  applying  a  voltage  to  the  pump  and  measuring  the  arterial 
pressured.  The  empirically  determined  equation  for  this  is: 

*  -0.1334fVpfes#J]  ♦  1.2178^^]  -  1.2401[V„J  *  1.2732. 

The  desired  arterial  pressure  waveform  is  calculated  using  the  following  equation. 

P(t)  =  Ej[Ajcos(t-HR/2x)  +  BjSin(tHR/2jr)] 
where  i  *  {1,2, 3,4, 5,6} 

A,  =»  {-10.14,-0.30,-0.15,1.08,0.21,0.42} 

B(  =  {6.79,-3.29,-0.97,-0.24,0.07,0.63} 

The  second  part  of  the  control  system  is  a  bang- bang  controller.  A  solenoid  valvee 
is  controlled  by  comparing  the  real  arterial  pressure  and  the  desired  arterial  pressure.  The 

d  The  pressure  transducers  are  Data  Instrunents  Model  #EA9300002,  0-15  psig. 
e  Asco  Model  #8262C6  12V  normally  closed  valve. 
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inherent  capacitance  in  fluid  inertia, 
as  well  as  the  capacitance  of  the 
simulated  artery,  result 
in  a  time  delay  from  the  pump 
applying  pressure  to  the  pressure 
sensed  by  the  arterial  transducer;  this 
time  delay  was  measured  to  be  120 
milliseconds.  Therefore,  the  desired  pressure  signal  must  be  temporally  synchronized  to  the 
real  pressure.  The  computer  delays  the  desired  signal  by  120  msec  and  then  sends,  via  a 
second  DAC,  the  desired  pressure  to  the  bang-bang  comparator.  Fig.  3  shows  the  functional 
diagram  of  this  concept. 

The  third  part  of  the  control  loop  is  an  adaptive  controller  implemented  in  the 
software.  Since  the  arm  and  the  "rest  of  the  body"  are  parallel  (and  very  different)  circuits, 
the  actual  arterial  pressure  varies  as  the  arm  is  partially  occluded  (taken  out  of  the  circuit). 
The  error  between  the  desired  pressure  (systolic  and  diastolic)  and  the  actual  pi  assure  (systolic 
and  diastolic)  is  calculated  every  two  pulses.  This  error  is  used  to  modify  two  coefficients 
which  are  applied  to  the  oscillating  component  and  the  offset  component  of  the  desired 
waveform  applied  to  the  pump.  This  adaptively  controls  the  pump  depending  on  the  actual 
and  desired  arterial  pressures.  These  three  parts  of  the  control  system  are  necessary  to  control 
this  complex  and  dynamic  circuit. 

In  order  to  calibrate  the  device,  application  of  the  calibration  assembly  allows 
pressurization  of  the  reservoir  and  the  cuff.  This  static  pressure  is  transmitted  to  the  whole 
fluidic  system  as  well  as  the  cuff  pressure  transducer.  The  arterial,  venous,  and  cuff  pressure 
transducers  can  be  calibrated  simultaneously. 

4.2  Arm 

In  order  to  provide  an 
anthropomorphic  test  fixture,  the  arm  is 
constructed  from  a  modified  IV  training 
arm.  Fig.  4  shows  the  fluid  schematic.  The 
plumbing  consists  of  a  simulated  artery,  an 
expandable  bag  (simulating  the  distal  limb 
volume),  a  restriction  (simulating  a 
capillary),  and  a  simulated  vein.  Fig.  5 
shows  the  side  view  of  the  limb.  The  artery 
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Figure  4.  Functional  Diagram  of  the  Arm 
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and  vein  are  located  on  the  upper  arm.  A  chamber  of  oil,  covered  by  a  rubber  membrane, 
is  the  cuff  pressure  sensor.;  This  is  fluidically  coupled  to  a  pressure  transducer.  The  cuff 
pressure  is  transmitted  through  the  skin  and  membrane  to  the  oil,  and  in  turn,  the  transducer. 
Another  pressure  transducer  is  used  as  a  microphone.  It  is  attached  to  the  arterial  line  distal 
to  the  artery.  Sounds  generated  by  the  artery  (Korotkoff  sounds)  are  sensed  by  this 
transducer,  amplified,  and  played  back  thrc-jgh  a  .pe?ker  located  under  the  skin  at  the  elbow 
on  the  arm. 


Figure  5.  Physical  Location  of  Arm 
Components 


There  are  two  major  technological  advances  in  the  limb  -  the  occluding  vessel  and  the 
simulation  of  ischemia. 


4.2.1  Vessels 

The  initial  design  of  the  occluding 
vessels  (artery  and  vein)  was  a  flexible  tube 
(penrose  rubber).  We  placed  this  rubber 
tube  inside  a  closed  chamber  of  water  which 


had  one  pressurization  port.  The  rubber 

tube  had  water  flowing  through  it  at  a  Figure  6.  Illustration  of  Tube  Collapst 
certain  internal  pressure.  Unlike  Kresch  & 

Noordergraaf13,14,  Conrad15,  and  Holt16,  who  imply  that  flow  is  zero  when  internal  pressure 
is  equal  to  external  pressure,  we  observed  that  the  flow  was  not  zero  when  the  chamber 


pressure  was  equal  to  or  greater  than  the  internal  tube  pressure  (occlusion).  We  discovered 
that  (as  did  Kresch  and  Noordergraaf,  1972)  as  the  rubber  tube  collapsed,  extremely  small 
channels  remained  at  the  outer  ends  (Fig.  6).  The  chamber  pressure  had  to  be  very  large  in 
order  to  collapse  the  small  channels. 

Since  penrose  rubber  was  not  suitable  as  an  in  situ  occluding  vessel,  we  developed  our 
own  occluding  vessel.  Fig.  7  shows  the  mechanical  drawing  of  this  vessel.. 
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The  fluid  pressure  (e.g.,  arterial  pressu~e)  causes  the  thin  rubber  membrane  to  "bulge" 
and  fluid  is  allowed  to  pass  through  the  vessel.  If  the  occluding  pressure  (from  the  cuff)  is 
equal  to  the  fluid  pressure,  the  fluid  cannot  creat?  the  bulge,  and  the  vessel  is  occluded.  The 
forces  arising  from  the  fluid  pressure  and  the  external  pressure  are  in  balance  (since  tha  areas 
on  which  the  forces  act  are  equal).  As  one  would  expect,  the  arterial  pulses  can  be  measured 
in  the  oscillating  movement  of  the  rubber  membrane,  and  in  turn,  in  an  occluding  cuff 
applied  to  this  vessel.  This  design  results  in  a  practic-ally-realizable  Starling  resistor17. 


OCCLUDING  VESSEL 


TOP  VIEW 


Figure  7.  Mechanical  Drawing  of 


ARTIFICIAL  ARM 

TOP  VIEW  (ASS’D) 


w 

~ar 

~w~ 

0 

0 

3 

I 

<2 

0 

0 

6 

0 

ASSEMBLY  DWG 


Starling  Resistor 


4.2.2  Ischemia 

In  the  human,  the  arm  becomes  ischemic  when  the  artery  is  occluded  and  the  distal 
portion  of  the  arm  ceases  to  receive  blood.  This  causes  vasodilatation,  which  decreases  the 
intravascular  pressure.  Blood  flows  into  the  arm  when  the  cuff  pressure  is  deflated  below 
systolic  pressure,  because  of  this  intravascular  pressure  decrease.  If  the  intravascular  pressure, 
distal  to  the  occlusion,  remained  constant  (at  MAP),  then  the  inflow  of  blood  (when  the 
occlusion  is  no  longer  total)  would  be  prevented.  This  is  because,  in  order  to  create 
significant  flow,  there  must  be  a  pressure  drop.  In  the  prototype  test  fixture,  ischemia  is 
simulated  using  a  valvef  (dump  valve  in  Fig.  1).  This  valve,  when  opened,  allows  some  of 
the  fluid  in  the  limb  distal  volume  (see  Fig.  1)  to  empty  directly  into  the  reservoir..  This 


Asco  Model  #82628210  12V  normal ly  closed  valve. 
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volume  reduction  causes  the  "intravascular"  pressure  to  decrease.  In  effect,  the  same  result 
as  vasodilatation  has  been  created.  The  simulation  of  ischemia  is  essential  to  the  operation 
of  the.  tt»ree  blood  pressure  measurement  techniques.  Each  of  these  techniques  operates  on 
the  fact  that  as  the  cuff  deflates  below  systolic  pressure,  the  blood  flow  into  the  limb  becomes 
significant. 

4.3  Electrical  Hardware 

The  electrical  schematics  are  located  in  Appendix  A.  The  first  schematic  is  the 
computer  interface  board.  There  are  anti-aliasing  filters  for  each  transducer.  There  is  an 
eighth  order  low  pass  Butterwcrth  filter  for  the  arterial  transducer.;  The  arterial  transducer 
signal  requires  the  use  of  a  Butterworth  filter  to  reject  the  oscillations  due  to  the  control 
valve.  There  are  fourth  order  low  pass  Bessel  filters  for  the  other  transducers.  Also  on  the 
board  are  two  comparators  (essentially  bang-bang  controllers);  the  valve  controller  and  the 
heater  controller.  The  second  schematic  shows  the  circuit  located  in  the  arm  box,  consisting 
of  the  valve  drivers,  the  transducer  drivers,  and  the  audio  amplifier  for  the  Korotkoff  sounds. 
There  are  fuses  to  protect  the  electronics  from  any  current  surge  or  electrical  short.  They  can 
be  found  on  the  power  supply  box  on  the  computer  stand.  The  fuse  next  to  the  power  cord 
(on  the  AC  side  of  the  power  transformer)  is  a  four  amp  fuse,  and  the  other  fuse  (on  the  DC 
side  of  the  power  transformer  and  located  next  to  the  round  connector)  is  an  eight  amp  fuse. 

4.4  Computer  Software 

The  software  code  is  located  in  Appendix  B.  The  program  is  written  in  C,  and  it 
includes  Halo  graphics  software  and  C-Tools  (used  for  the  interrupt  service  routine  support). 
The  program  is  modular  to  allow  for  modification  if  necessary.  Its  function  can  be  seen  in 
the  video  manual  showing  the  setup,  calibration,  operation,  and  troubleshooting  of  the  test 
fixture. 

The  program  consists  of  three  parts.  The  first  part  is  the  vital  signs  menu  and  help 
functions.  This  utilizes  the  Halo  graphics  routines  and  the  arrow  and  enter  keys  on  the 
keyboard  to  choose  vital  signs  parameters  or  obtain  on-line  help.  The  second  part  is  the  main 
shell  of  the  program.  This  updates  the  screen  approximately  every  second.  The  screen 
consists  of  two  traces,  a  process  diagram,  a  manometer,  a  user-entered  header,  the  time  and 
date,  and  the  numerical  information  describing  the  arm.  Both  the  on-line  help  and  the  video 
tape  are  necessary  to  view  for  further  understanding  of  the  operation  of  the  arm.  The  last 
part  is  the  interrupt  service  routine.  This  acquires  data  and  controls  the  pump  and  control 
valve.  This  routine  is  entered  as  an  interrupt  to  the  processor  every  twenty  milliseconds. 
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5  RESULTS 

The  prototype  test  fixture  simulates  the  circulatory  physiology  of  a  human  limb.  The 
auscultatory  technique,  the  oscillometric  technique,  and  the  statometric  technique  measure  the  arterial 
pressure  in  the  arm  (controlled  by  the  pump  and  fluidic  system).  This  prototype  test  fixture 
eliminates  all  of  the  inherent  problems  of  testing  noninvasive  vital  signs  monitors  with  many  human 
subjects. 

With  the  use  of  this  test  fixture,  one  does  not  need  many  human  subjects  and  multiple 
measurements.  One  can  set  various  blood  pressures  and  heart  rates,  place  the  fixture  in  any 
environment,  and  test  the  vital  signs  monitor  accurately. 

The  problem  of  the  vital  signs  being  very  labile  is  no  longer  an  issue  here.  The  test  fixture 
maintains  the  desired  blood  pressure.  There  is  no  physical  or  psychological  stress.  The  fixture  has 
been  tested  for  eight  hours  continuously,  and  the  blood  pressure  remained  constant  (within  2  mmHg) 
during  that  time. 

The  test  fixture  does  not  need  time  to  equilibrate  after  a  blood  pressure  measurement.  The 
user  can  take  vital  signs  measurements  several  seconds  apart  (after  the  previous  one  ends). 

The  problem  of  cuff  placement  is  magnified  in  many  subjects.  The  cuff  must  be  applied 
multiple  times  (as  many  as  there  are  subjects).  The  cuff  needs  only  to  be  applied  once  on  the  test 
fixture. 

The  test  fixture  makes  no  voluntary  movements.  Any  movements  are  passive  and  caused  by 
the  user  or  the  environment  (shake  table  or  vehicle).  The  patient  movement  problem  does  not  appear. 

There  exists  no  pressure  error  due  to  differences  in  vertical  height  of  the  heart  and  the 
measuring  site.  The  arterial  pressure  transducer  is  on  the  same  vertical  level  as  the  artery.  The 
pressure  error  is  zero. 

Due  to  time  and  budgetary  constraints,  this  prototype  test  fixture  was  minimally  tested.  There 
are  some  problem  areas  with  the  arm  that  the  user  must  understand  to  properly  use  it.  The  next 
section  discusses  these  problems  in  detail. 


6  PROBLEM  AREAS  AND  SUGGESTIONS  FOR  FURTHER  WORK 

There  are  several  problem  areas  that  we  have  encountered  in  this  development  effort.  Time 
and  budgetary  constraints  prohibited  us  from  investigating  these  areas  more  completely.;  In  order  for 
one  to  use  the  arm  properly,  one  must  fully  appreciate  these  problems  areas  and  their  effects  on  the 
function  of  the  arm. 
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The  first  problem  area  is  the  control  loop.  The  adaptive  part  of  the  control  'oop  depends 
solely  on  the  heart  rate,  since  the  systolic  and  diastolic  pressures  are  computed  every  two  pulses. 
Overshoots  are  increase^  and  small  oscillations  aie  extended  in  time  as  the  heart  rate  decreases.  We 
have  observed  that  in  the  prototype  test  fixture,  the  oscillometric  technique  operates  more 
inconsistently  as  the  heart  rate  is  lowered.  We  believe  that  further  development  will  allow  fine  tuning 
and  more  complete  testing  of  the  control  loop,  and  in  turn,  allow  consistent  operation  of  the 
oscillometric  technique  over  the  whole  heart  rate  range. 

The  second  problem  area  is  the  cuff  pressure  transducer’s  nonlinearity  and  cuff  placement 
criticality.  This  transducer  consists  of  a  chamber  of  oil  covered  with  a  thin  rubber  membrane.  This 
chamber  is  fluidically  coupled  to  a  pressure  transducer.  The  cuff  pressure  couples  to  this  chamber 
through  the  skin.  We  have  found  that  the  overall  (cuff  to  pressure  transducer)  cuff  pressure 
measuring  system  is  slightly  nonlinear.  The  cuff  pressure  is  higher  than  the  transducer  measurement 
for  low  cuff  pressures.  We  believe  that  further  development  will  allow  us  to  redesign  the  cuff 
pressure  transducer  chamber  so  th?t  the  system  is  linear,  or  as  a  minimum,  deterministic.  The  user 
must  calibrate  the  cuff  transducer  immediately  after  each  and  every  cuff  application.  We  have  found 
that  'he  cuff  placement  is  extremely  critical  to  the  pressure  transmission  from  the  cuff  to  the 
transducer.  A  redesign  of  this  chamber  will  eliminate  the  need  for  the  frequent  calibration. 

The  third  problem  area  is  the  noise  of  the  solenoid  valve  opening  and  closing.  This  sound 
propagates  through  the  Paid  lines  and  is  sensed  by  the  microphone.  This  sound,  along  with  the 
Korotkoff  sounds,  are  amplified.  The  valve  sounds  result  in  the  difficulty  in  hearing  the  Korotkoff 
sounds.  We  believe  that  further  development  will  permit  us  to  obtain  a  specially  fabricated  valve 
with  rubber  stops  (instead  of  the  metal  ones);  this  will  eliminate  the  valve  sounds. 

The  fourth  problem  area  is  the  "dump  valve"  control.  This  valve  is  modelling  the  ischemia, 
and  is  controlled  by  the  relationship  between  the  cuff  pressure  and  the  systolic  pressure.  When  the 
cuff  pressure  is  greater  than  systolic  pressure,  there  is  no  flow  in  the  arm.  A  flow  transducer  (or 
differential  pressure  measurements)  in  the  arterial  line  would  allow  better  control  of  this  valve.  We 
have  found  that  the  problem  of  the  cuff  pressure  transducer  magnifies  the  problem  here.  If  the  cuff 
pressure  transducer  is  inaccurately  measuring  the  cuff  pressure,  the  "dump  valve"  is  opened  at  the 
wrong  time,  and  the  distal  limb  is  emptied  too  early  or  too  late.  Both  of  these  scenarios  lead  to  the 
inconsistent  operation  of  the  oscillometric  and  the  statometric  techniques.  Further  development 
might  result  in  another  method  (fluidic)  of  modelling  the  ischemia. 

The  prototype  test  fixture  is  fragile  and  minimally  tested.  The  scientific  progress  in 
understanding  and  modelling  the  underlying  physical  and  physiological  principles  of  noninvasive 
blood  pressure  measurement  is  considerable.  This,  unfortunately,  minimized  the  time  for  ruggedizing 
and  testing  the  final  test  fixture. 
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7  CONCLUSIONS 

The  prototype  test  fixture  fills  a  void  in  checking,  calibrating,  and  maintaining  vital  signs 
monitors.  This  test  fixture  will  allow  accurate  monitoring  and  control  of  the  simulated  dynamic 
arterial  pressure;  mis  eliminates  all  of  the  associated  problems  in  testing  noninvasive  vital  signs 
monitors  (see  the  Results  section).  The  test  fixture  has  a  great  potential  in  both  the  military  and 
civilian  environments;  it  should  allow  routine  checking  of  all  vital  signs  monitors,  and  it  should 
improve  maintenance  of  vital  signs  monitors. 
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APPENDIX  B 


Software  Code 


/* 

ARM 

DEFINITIONS 

•define 

FRAME 

0x01 

/* 

•def ine 

A  2D 

0x02 

/* 

#def ine 

DELAY 

0x04 

/* 

#def ine 

ART  P 

0x00 

/* 

#def ine 

CUFF  P 

0x01 

/* 

•define 

vein“p 

0x02 

/* 

#def ine 

COR£~T 

0x03 

/* 

•def ine 

SKIN  T 

0x04 

/• 

•define 

MAXMEASURED 

500 

•define 

DAS8_BASE_AOUR 

0x310 

/• 

•define 

A 2D  LO  BYTE 

0x310 

/* 

•define 

A2D~HI_BYTE 

0x311 

/* 

•define 

START  8  BIT 

0x310 

/* 

•define 

STARTJ2  BIT 

0x311 

/* 

•define 

DAS8  STATUS 

0x312 

/* 

•define 

DAS8~  CONTROL 

0x312 

/* 

•define 

CNT  0 

0x314 

r 

•define 

CNT  1 

0x315 

/* 

•define 

CNT  2 

0x316 

/* 

•define 

CNT  CTRL 

0x317 

/* 

•define 

INT  CHAN 

0x05 

/* 

•define 

EOI  ADDR 

0x20 

/* 

•define 

PIC 

0x20 

/• 

•define 

ENABLE  I NTS 

0x08 

/* 

•define 

D1_0UT  HI 

0x10 

/* 

•define 

D20UTHI 

0x20 

/* 

•define 

D3~0UTHI 

0x40 

/* 

•define 

D4  OUT  HI 

0x80 

/* 

•define 

DACO  LO 

0x308 

/• 

•define 

DACO  HI 

0x309 

/* 

•define 

DAC1~L0 

0x30A 

/* 

•define 

DAC1  HI 

0x308 

/* 

•define 

DAC  MAX 

OxFFF 

/* 

•define 

ECG_LO 

DACO  LO 

/* 

•define 

ECG  HI 

DACO  HI 

/* 

•define 

HEATER 

DAC1  LO 

/* 

•define 

FRAME  ERR 

0x01 

/* 

•define 

A20  ERR 

0x02 

/* 

•define 

DELAY  ERR 

0x04 

/* 

•define 

CLOSE  ERR 

0x08 

/* 

•define 

INDET_ERR 

0x10 

/* 

•define 

UNEXP  ERR 

0x20 

/* 

V 

The  IRR  bit  set  by  frame  clock  */ 
The  IRR  bit  set  by  A/D  EOC  */ 

The  IRR  bit  set  by  write  delay  */ 
Arterial  pressure  */ 

Cuff  pressure  */ 

Venous  pressure  V 

Core  temperature  */ 

Skin  temperature  */ 

Base  address  of  DAS-u  board  */ 

A/D  converter  data  low  byte  */ 
A/D  converter  data  hi  byte  */ 
Start  8- bit  conversion  addr  */ 
Start  12-bit  conversion  addr  */ 
DAS-8  status  register 
DAS -8  control  register  */' 

8254  counter  #0  address  */ 

8254  counter  #1  address  */ 

8254  counter  #2  address  */ 

8254  control  reg  address  */ 

Hardware  interrupt  •  used  */ 

8259  control  register 

8259  control  register 

"Enable  interrupts"  comsand  */ 
"Set  D1  out  hi"  command  */ 

"Set  D2  out  hi"  command  */ 

"Set  03  out  hi"  command  •/ 

"Set  D4  out  hi"  command  */ 

DACO's  lo  byte  address  */ 

DACO's  hi  byte  address  */ 

DACI's  lo  byte  address  */ 

DACI's  hi  byte  address  V 

Maximum  DAC  output  V 

DACO  is  the  ECG  output  V 

DACO  is  the  ECG  output  */ 

DAC1  is  the  Heater  output  */ 

Frame  overlap  */ 

A/D  overlap  */ 

Delay  overlap  */ 

Process  overlap  */ 

IRR  *  0  */ 

Unexpected  A/D  int.  V 


*/ 


V 

V 


26 


*U«e  or  disclosure  of  report  data  is 
subject  to  the  restriction  on  the  Title 
page  of  this  Final  Report*. 


GMS  Engineering  Corporation 


Contract  No.  DAMD17-88-C-8018 


/* 


TEST  FIXTURE  FOR  VITAL  SIGNS  MONITORS 


*/ 


#inciude  <math.h> 
#ir>clude  <crnio.h> 
#include  <stdlib.h> 
#include  <halo.h> 
♦include  <time.h> 
♦include  <malloc.h> 
♦include  <stdio.h> 
♦include  <butil.h> 

# include  <bkeybrd.h> 
♦include  <bscreens.h> 
♦:nclude  <bstrings.h> 
♦include  <bintrupt.h> 
#include  <das8_defs.h> 
#include  <err_defs.h> 
#include  <dac_defs.h> 
♦include  <datadefs.h> 


/*  Err  code  defs  */ 

/*  D/A  addrs  &  functs  */ 

/*  Conversion  constants  */ 


♦define 
♦def ine 
#def ine 


♦def ine 


♦define 
♦define 
♦define 
♦def i ne 
#def ine 
#def ine 


PI  3.1415926535 

GRAPHS_EVERY_X  2 

UPDATE_X_LOOPS  2  /*  Max  value  for  this  is  10  due  to 

hr_,  sys_  ,  dias_,  map_ 
arrays  declared  with  lengths  of 
1C.  V 


MAX  LENGTH  300 


NA2DLHAN 
INT_FREO 
BLEE0_TIME 
STACKS I ZE 
NSTKS 


5 

50.0 

75 

0x2000 

1 


I NT  TYPE  I NT  CHAN  +  8 


/*  Maximum  length  of  the  bp  and  ecg  waveform 

arrays.  Change  this  value  from  120  if 
the  sample  interval  changes  from  50  msec 
or  the  mininun  heart  rate  changes  from 
30bpm.  */ 

/*  Int  freq  */ 


/*  Int  vector  ./pe  */ 


♦define  SPEC_EOI  0x60  j  (  0x07  &  I NT_CHAN  ) 

#define  YES  1 

#def i ne  NO  0 

♦def ine  ON  0 

#define  OFF  1 


/*  Declare  subroutines  */ 
void  moinfvoid); 

void  set_up_vs_settings_menu(int); 
void  set  up_vs_query(void); 
void  obtain_vs_settings(void); 
void  set_up_manometer_disp(void); 
void  set_up_icu_disp(void); 
void  draw_graph_labels(int,  int,  int); 
void  set_up_process_di sp( void); 
void  drew_loop_outline(void); 
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I 

I 

I 

I 

I 

I 

I 

1 

I 

I 

I 

I 

I 

I 

I 

I 


void  set  up_opt i ons_ba r ( vo i d ) ; 
void  help_systetn(void); 


void  update_manometer(f loat); 

void  update_icu(int, int, int, int); 

void  update_process(int,  int,  int,  int,  int); 

void  o'rau_arm_outl ine(void); 

void  update_header(char  *); 

void  update_options( int); 

void  gms_logo(void); 

int  read_velue(char  *,  int,  int,  float  *); 
int  matherrCstruct  exception  *); 

/*  Declare  interrupt  subroutines.  */ 


int  enable_ints(  int  ); 
int  disable_ints(  int  ); 
int  set_imr(  int,  int  ); 

int  set_tiroer(  int,  int,  double,  double  ); 
int  read_status(  int  );  > 


/*  Enables  ints  on  DAS-8  board.  */ 
/*  Disables  ints  on  DAS-8  board.*/ 
/*  Programs  the  8259  mask  reg  */ 

/*  Ini's  8254  counter  */ 

'*  Reads  the  status  word  of  8254  */ 


/*  Declare  and  initiate  values  */ 

int  sysvalve; 
int  sys_check; 
int  dias_valve; 
double  press  map; 
int  minalpha; 

int  mainrestart  =  0; 
int  manomrestart  =  0; 
int  icu_restart  =  0; 
int  process_restart  =  0; 
int  drw_grph_restart  =  0; 
int  isr_restart  =  0; 
int  calflag  =  0; 
int  exit_flag  =  0; 

int  mode  =  4; 

static  char  filename!)  =  {"HAIOEVME . DEV") ; 

float  min_x  =  (float)  0.0; 

float  min_y  =  (float)  0.0; 

float  max_x  =  (float)  1000.0; 

float  max_y  =  (float)  1000.0; 

int  blue  »  0,  blue_“at  =  1; 

int  white  =  1,  white_val  =  63; 

int  purple  =  2,  purple_val  =  21; 

int  red  =  3,  red_val  =  4; 

int  light_gray  =  4,  light_gray_val  =  7; 

int  navy  =  5,  navy_val  =  8; 

int  dark_gray  =  6,  dark_gray_val  =  56; 

int  black  =  7,  black_vaT  =  0; 

int  light_blue  =  8,  light_b.ue_val  =  59; 

int  yellow  =  9,  yellow_val  =  54; 

int  bright_pink  =  10,  bright_pink_val  =  61; 

int  bright_btue  =11,  bright_blue_val  =  43; 

int  bright_orange  =  12,  bright_orange_val  =  38; 
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int  bright_green  =  13,  bright_green_val  =  26; 
int  gms_blue  =  14,  gms_blue_val  =  9; 
int  skin_pink  =  15,  skin_pink_val  =  39; 

float  asp,  aspect=(f loat)1 .7; 
int  horjaix,  ver_pix; 

int  degrees  =  1; 

int  result; 

static  char  fontnameU  =  C'HAL0104.FMT‘'>; 
static  char  fcntname2[]  =  C'HAL0106.FNT">; 
int  pagel  =  1; 

int  page2  =  2; 

int  ne«_header  =  1; 

int  data CHAX_MEASURED] [10] ; 
int  data_base[KAX_MEASURECj ; 

int  most_recent_data; 

int  most_recent_plotted; 

int  ar  =  0,  ec  =  5,  cu  =  1,  ve  =  2; 

int  pp  =  6,  sk  =  4,  co  =  3,  gr  =  7; 

int  di  =8,  ra  =  9; 

int  max jxjints  =  MAX  MEASUREO  -  1; 

int  update; 

int  frozen; 

int  period  msec,  rxjn_pts_in_period;' 

int  sample  interval  =  (int)  (1000/IHTFREQ); 

;nt  nun_pcs,  slope; 

int  current_length; 

double  dtempO; 

double  dtempl; 

int  t_off  =  120; 

int  alpha  =  100; 

int  beta  =  100; 

int  ecg  deslHAX  LENGTH]; 

int  bpdes iMAX_LENGTH] ; 

int  bp_d0 [MAX_LEHGTH1 ; 

int  bp_d1 [MAXLENGTH] ; 

int  hr_set; 
int  sys_set; 
int  dias_set; 
double  press_set [3] ; 
double  art_cal; 
double  cuf_cal; 
double  ven_cal; 

char  header [42]  =  -*GMS  ENGINEERING  CORPORATION  VSN  TEST”; 

int  last_measured_x; 
int  last_averaged; 

/*  Definitions  of  the  data  conversion  constants  */ 

int  k_art_p  =  512;  /*  arterial  pressure  (imHg/V)  */ 

int  k_cuff_p  =  531;  /*  Cuff  pressure  (mmHg/V)  */ 
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int  k_vein_p  =  483;  /*  Venous  pressure  (mmHg/V)  */ 

int  k_core_t  =  24;  /*  Core  temperature  (degC/V)  */ 

int  k_skin_t  =  24;  /*  Skin  temperature  (degC/V)  */ 

int  k_»cg  =  1;  /*  Electrocardiogram  {  mV/V>  */ 

int  off_art_p  =2007;  /*  arterial  pressure  <mmHg/V)  */ 

int  off_cuff_p  =2706;  /*  Cuff  pressure  (nrmHg/V)  */ 

int  off_vein_p  =3487;  /'  Venous  pressure  (mmHg/V)  */ 

int  off_core_t  =  -76;  /*  Core  temperature  (degC/V)  */ 

int  off_skin_t  =  -34;  /*  Skin  temperature  (degC/V)  */ 

int  offecg  =  0;  /*  Electrocardiogram  (mV/V)  */ 


int  over  =  2; 
int  delta_over  =  2; 
int  max_over  =  20,  min_over  =  2; 
int  at_low_limit  =  1; 
int  at_up_Timit  =  0; 

int  lo«_pitch  =  150; 
int  midjjitch  =  450; 
int  high_pitch  =  700; 
int  short_duration  =  2; 
int  mid_duration  =  5; 
int  longduration  =  10; 

/*  Variables  for  the  interrupt  portion  of  the  program.  */ 

int  frame; 
int  end_frame; 
int  dac_v; 
int  lastjneasured; 
int  art_press; 
int  a_p_ index ; 
int  cuf_press; 
int  c_p_ index; 
int  veinjsress; 
int  vjj_ index ; 
int  core_temp; 
int  c_t_index; 
int  skin_temp; 
int  s_t_index; 
int  bp_ind; 

int  mejor_error,  basic_error; 
int  nun_points_insg_on; 
int  messageon; 
int  nun_errors; 
int  error_nun; 
char  *pmessage; 

static  char  lo_arter_message[]  =  {  "  Arter  press  >  330  mmHg."  }; 

static  char  lo_cuff_messageC]  *  {  11  Cuff  press  >  330  innHg.  "  }; 

static  char  hi_arter_message[]  =  {  "  Arter  press  >  360  innHg."  }; 

static  char  hi_cuff jnessaget]  =  {  "  Cuff  press  >  360  msHg.  "  }; 

static  char  core_message t]  =  C  "  Core  temp  >  43‘C.  M  ); 

static  char  sl.in_message[]  =  {  "  Skin  temp  >  43’C.  "  }; 

static  char  pps_messageU  =  {  "  Motor  too  fast  too  long."  }; 


/*  The  data  frame  #  */ 

/*  "End  of  frame"  flag  */ 

/*  DAC  voltage  f'.  motor  */ 

/*  The  most  recent  art_p[]  */ 

/*  Points  to  the  next  art_p  loc  */ 
/*  The  most  recent  cuff _p[]  */ 

/*  The  next  cuff_p  da tun  to  be  entd  */ 
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void  armjsr(  ALLREG  *,  ISRCTRL  *,  ISRHSG*  ); 
char  *isr_id  =  "ARM  ! SR  9/26/88  ";  /* 

ISRCTRL  isr_ctrl;' 

int  motor_v;  /* 

int  das8_state  =  ec¬ 
static  ISRCTRL  far  *pisr_ctrl; 
static  char  isr_stack[  STACKS  I ZE‘NSTKS  ];  /* 

void  mainO 

< 

FILE  ‘stream; 


/*  The  isr.  */ 

ISR  signature.  */ 

/*  Control  block  for  the  isr.  */ 

The  motor  velocity  in  rpm  */ 

/*  Contents  of  the  DAS-8  control  register*/ 

/*  pointer  sent  to  isinstalO  */ 

ISR  stack:must  be  an  auto  var*/ 


int  pps,  cuff,  venous,  core,  skin,  arter; 
int  inc_dec; 

int  curs_pos,  ch,  newkey; 

int  loop_counter; 

int  loopentr; 

int  i, j,k; 

int  graph; 

static  int  freeze,  lock; 

int  check_settings; 
static  char  answer!]  =  "Y"; 

double  f lt_num_pts,  single,  doubleit,  triple; 

int  single_leftover,  doublei t_lef tover,  triple_leftover; 

double  sin_interval ,  angle_radians; 

int  multiplier; 

double  range_bp; 

static  double  coeff_a[6]  =  C- 10. 14,  -0.30,  -0.15,  1.08,  0.21,  0.42>; 
static  double  coeff_b[6]  =  <6.79,  -3.29,  >0.97,  -0.24,  0.07,  0.63); 
static  double  coeff_c[6]; 
static  double  coeff_d[6]; 
static  int  qrs; 

static  int  ecg_coeff_a[6]  =  <0, 0,0, 10,0, 0>; 

static  int  ecg_coeff_b[9]  =  <-10, 0,0, 0,10, 20, 0,0, 0>; 

double  miniiMii; 

double  sun,  tenpl,  temp2; 

int  add_on; 

double  angle_int; 

static  char  pressure [3]; 

static  float  cal_height  =  (float)  30.0; 

static  float  press_height  =  (float)  60.0; 

static  float  cal_x  =  (float)  20.0; 

static  float  calT_y  =  (float)  800.0; 

static  float  cal2_y  =  (float)  750.0; 

static  float  cal3_y  =  (float)  700.0; 

static  float  cal4_y  =  (float)  650.0; 

static  float  cal5_y  *  (float)  600.0; 

static  float  cal6_y  =  (float)  550.0; 

static  float  cal7_y  *  (float)  500.0; 

static  float  cal8_y  =  (float)  450.0; 

static  float  cal9_y  =  (float)  400.0; 

static  float  calap_x  =  (float)  160.0; 

static  float  calp_y  =  (float)  250.0; 

static  float  calcp_x  =  (float)  460.0; 

static  float  calvp_x  =  (float)  760.0; 
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static  float  calb1_x  =  (float)  1C0.0; 
static  float  calb1_y  =  (float)  200.0; 
static  float  calb2_x  =  (float)  900.0; 
static  float  calb2_y  =  (float)  350.0; 

static  char  cal1_msg[]  =  t  "Please  attach  calibration  assembly  tc  the  air  port,  to"  }; 

static  char  cal2_msg[]  =  {  "the  bulb,  to  a  manometer,  and  apply  the  cuff  around  the"  >; 

static  char  cal3_msg(]  =  {  "arm.  The  pressures  will  be  updated  continuously"  >; 

static  char  cat4_msg[]  =  <  "in  order  to  check  the  calibration.  If  you  uish  to  exit,"  >; 

static  char  cat5_msgn  =  {  "press  £.  If  you  wish  to  calibrate  the  transducers,"  }; 

static  char  cal6_msg(]  =  {  "apply  zero  pressure  and  press  L.  Then  apply  250  mnHg  pressure"  >; 

static  char  cal7_msg£]  =  {  "and  press  H.  The  calibration  will  not  be  changed  until  tne  H"  }; 

static  char  cal8_msg[]  =  {  "is  pressed." 

static  char  cal9_msg[]  =  {  "  ARTERIAL  CUFF  VENOUS"  ); 

static  int  art_pres_ten,  cuf_pres_ten,  vein_pres_ten; 

void  far  *int_vec  =  isgetvec  ( INT_TYPE);  /*  old  isr  vector  */ 

int  path  -  0; 
int  on_off_toggle; 

float  error_x1  =  (float)  700.0,  error  yl  =  (float)  765.0;' 

float  error_x2  =  (float)  975.0,  error_y2  =  (float)  815.0; 

float  error_height  =  (float)  20.0; 

float  out_x1  =  (float)  0.0,  out_y1  =  (float)  0.0; 
float  out_x2  =  (float)  1000.0,  out_y2  =  (float)  1000.0; 
float  in_x1  =  (float)  100.0,  in  yl  =  (float)  300.0;' 
float  i n_x2  =  (float)  900.0,  in_y2  =  (float)  700.0; 
float  big_height  =  (float)  70.0; 
float  questionheight  =  (float)  30.0; 
float  messageheight  =  (float)  40.0; 
float  term_x  =  (float)  105.0,  term  y  =  (float)  725.0; 
static  char  terminated  =  {  "Simulation  Terminated"  ); 
float  questx  =  (Float)  70.0,  questy  =  (float)  150.0; 

static  char  star'._over(]  =  (  "Would  you  like  to  start  a  new  simulation?  (Y)es  or  (N)o:  "  ); 
float  messgx  =  (lloat)  115.0,  messg_y  =  (float)  600.0; 

outp(DAC0_HI ,0x32); 

Outp(DAC0_L0,0); 
outp(0AC1~HI ,0xFF); 
outp(DAC1_L0,0xF0); 

setdev(f i lename); 
i ni tgraph ics(Smode) ; 

setcolor(  Sblack  ); 
clr(); 

/*  Set  aspect  ratio.  */ 
inqasp(&asp); 

inqdrange(ihorj}ix,  &ver_pix); 

aspect  =  (nax_y  -  min_y)  /  (max_x  >■  min_x); 

aspect  *=  (  ((float )hor_pix  +  (float)I.O)  / 

((f loat)ver_oix  ♦  (float)). 0)  )  *  asp; 

setworld(&min_x,  4«in_y,  &max_x,  imax_y); 

/*  Set  color  pallette.  */ 
setxpal(&light_blue,  &light_blue_val); 
setxpaKSblue,  4blue_vel); 
setxpaK&purple,  &purple_val); 
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setxpal(&red,  &red_val); 
setxpaK&ligntgray,  &l ight_gray_val); 
setxpaK&navy,  &navy_val); 
setxpal(&dark_g''ay,  &dark_gray_vai); 
setxpaK&black,  &black_val); 
setxpal  i,&whi  te,  &white_val); 
setxpaW&yel  Ion,  &yeUo«_val); 
setxpaK&bright _pink,  lbright_pink_val); 
se t xpa l ( &br i gh  t_b l ue ,  &br i gh  t_b l  ue  vs l ) ; 
setxpaK&bi  ight_orange,  &brighf_orange_val); 
setxpal(&bright_green,  &br ight_green_val); 
setxp£.l(igms_blue,  &gms_blue_val ); 
setxpaK&skin _pink,  &skin_pink_val); 

setdegree!  Sdegrees  ); 

setf ont ( f ontname) ; 

setscreen(&page1 ); 
gmslogoO; 
display! Spagel ); 


/*  START  from  previous  run  "/ 

start : 

/*  Initialize  variables  */ 

if  <mein_restart)  C 

manosi_restart  =  1; 
icu_restart  =  1; 
process_restart  «  1; 
drw_grph_restart  =  1; 
isr_restart  =  1; 
main_restart  =  0; 

> 

on_off_ toggle  =  ON; 
nun_points_msg_on  =  0; 
message_on  =  0; 
cal  flag  =  0; 
rnajor_eiTor  =  0; 
basic_error  =  0; 
nun_errors  =  0; 
sys_valve  *  999; 
sys_check  =  0; 
diasvalve  =  0; 
pressjnap  -  0.0; 
frozen  =  0; 
nun _pts  =  0; 
slope  =  0; 
hr_set  =  0; 
sys_set  =  0; 
dias_set  =  0; 
lastjneasured_x  =  -1; 
frame  *  0; 
end  frame  -  YES; 
dac_v  =  0; 
last  jneasured  =  -1; 
art_press  0; 
a_p_index  -  0; 
cuf_ press  =  0 
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c_p_ index  =  0; 
vein_press  =  0; 
v_p_ index  =  0; 
core_temp  =  0; 
c_t_ index  =  0; 
skin_temp  =  0; 
s_t_index  =  0; 
bp_ind  »  0; 
motor_v  =  0; 

das8_state  =  0; 
inc_dec  =  0; 
ch  =  0; 
newkey  =  0; 
freeze  = 
lock  =  1; 

for(  i=0;  i  <=  max_points;  i++  )  < 
for(  j=0;  j  <*  9;  j+*  )  { 
detain  Cj]  =  0; 

> 

} 

*or(  i=0;  i  <=  max_points;  i++  )  { 
data [i]  Cdi]  =  999; 

> 

se t sc reen ( &page2 ) ; 
check_settings  =  2; 

set_up_vs_sett i ngs _menu(check_sett i ngs )  ; 

query: 

set_up_vs_query( ) ; 

displav'&page2); 

obto.,._vs_settings(); 

if(  exit_flag  ==  11  )  goto  out_loop; 

setcolor(  Sblue  ); 

clr(); 

check_settings  =  0; 

set_up_vs_set t i ngs _menu( check_set  t i ngs ) ; 
while(  IkbhitO  ); 
ch  =  getchO; 

if  (ch  ==  27)  goto  out_loop; 
if  (ch  ==  121  ||  ch  **  89)  ( 
answer  [0]  =  1 Y 1  ; 
stext(  answer  ); 

> 

else  ( 

answer [0]  =  ’ H 1 ; 
stext(  answer  ); 
calftag  =  0; 
goto  query; 

> 

if(  calflag  ==  11  )  goto  calO; 

/*  Read  constants  from  file.  */ 

if  ((stream  =  fopenCcalib.arnf,  "r+b"))  !=  NULL); 
else  printf(MWas  not  able  to  open  the  file."); 
result  =  fscanf (stream,  “Xd",  &k_artj>); 

result  =  fscanf(stream,  uXd",  &k_cuf"t_p); 

result  =  fscanf(streara,  "Xd41,  &k_vein_p); 
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result  =  fscanf (stream,  "Xd",  &off_art_p);' 
result  =  fscanf (stream,  "Xd",  &off_cuff_p);' 
result  =  fscanf (stream,  "Xd",  &off_vein_p); 
fctose( stream); 

periodjnsec  =  tint)  (  60.0  /  (doubte)  hr_set  *  1000.0  ); 
nun_pts_in _period  =  period_msec  /  sample_interval; 

/*  Calculate  the  nunber  of  periods  of  the  ecg  and  bp  waveforms  to  fit l  the 

arrays  with.  Use  one,  two,  or  three  periods  depending  on  which  uses 
up  the  most  of  the  time.  */ 
flt_num_pts  =  (60.0*1000.0) 

/  (double)(hr_set*sample_interval); 
single  =  flt_nun_pts; 
doubleit  =  2.0  *  single; 
triple  =  3.0  *  single; 

single_leftover  =  (int)(fabs  (single  -  (doubte)  (int)  singte)  *  1000.0); 
doublet' t_leftover  =  (int)(fabs  (doubleit  -  (double)  (int)  doubleit) 

*  1000.0); 

triple_leftover  =  (int)(fabs  (triple  •-  (double)  (int)  triple)  *  1000.0); 
if  (single_leftover  >  500)  single_leftover  -  1000  ■  singte_leftover; 
if  (doubleit_leftover  >  500)  doublet' t_leftover  =  1000  -  doublet' t_leftover; 
if  (triple_leftover  >  500)  tripte_leftover  «  1000  triple_leftover; 
if  ((int)min(single_leftover,doubleit_leftover)  ==  single_leftover) 

if  ((int)min(single_leftover,tripte_teftover)  ==  single_lef tover) 
multiplier  =  1; 

else 

multiplier  =  3; 

else  if  ((int)min(doibieit_leftover,tripte_teftover)  ==  doublet' t_lef tover) 
multiplier  =  2; 
else  multiplier  =  3; 

current_length  =  multiplier  *  nun_pts_in_period  -  1; 

/*  Fill  the  bp  waveform.  */ 

rangebp  =  (double)  (  sys_set  -  dias_set  ); 

for  (k=0;  k<6;  k++){ 

coeff_c[k]  =  coeff_a(k]  *  rartge_bp  /  25.0; 
coeff  dtk]  =  coeff  b(k]  *  range  bp  /  25.0; 

> 

minimus  =  9999.0; 

sin_interval  =  360.0  /  f lt_nu*_pts; 
for  (  i=0,  j=multiplier  ;  j  >=  1;  j--)  { 

for  (  ;  i  <=  current_length  &&  i  <=  MAX_LEMGTH;  i++)  { 
angle_int  *  ( docp l e ) i  *  sin_interval; 
while(  angle_int  >=  360.0  > 
angle_int  -=  360.0; 

angle_radians  =  angle_int  *  PI  /  180.0; 
sum  =  0.0; 

for  (  k=0;  k<6;  k++X 

tempi  =  coeff_c[k] 

*  cos(  (double)  (k+1)  *  angte_radisns  ); 
temp2  =  coeff_d(k] 

*  sin(  (doubte)  (k+1)  *  angle_radiarts  ); 
sun  +=  tempi  ♦  temp2; 

> 

bp_des(i]  =  (int)  sun; 

if  (sun  <  mini  mutt)  minimus  =  sun; 

) 

} 

add_on  =  dias_set  -•  (int)  minimun; 
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pressjnap  =  0.0; 
minalpha  =  9999; 
alpha  =  100; 
beta  =  100; 

t_off  =  t_off  /  sample_interval; 

for  (i=0;  i  <=  current, length  &&  i  <=  MAXLENGTH;  i++)  { 
bp_desti]  +=  add_on; 

press_map  +=  (double)  (bp_des[i]*bp_des[i) ); 

dtempT  =  <double)bp_des[i]  +  ((double)off_art_p  /  10.0); 

dtempl  =  (2.4414  *  dtcmpl)  /  (double)k_art _p; 

dtempO  =  ( - .1334*pow(dtemp1 ,3.0))+(1 ,2T78*pow(dtempl ,2.0:  '+(-1 .2401*dtemp1)+1 .2732;' 
if(  dtempl  >  4.900  )  dtempl  =  4.900; 
if(  dtempO  >  4.900  )  dtempO  =  4.900; 

bp_d1£(i  +  t_off)  %  current_length)  =  (int)  (dtempl  /  0.001221); 

bp_d0 £i]  =  (int)  (dtempO  /  0.001221); 

if(  bp_d0£i]  <  minalpha  )  minalpha  =  bp_d0[i]; 

bp_des£i]  =  bp_des[i]  *  10; 

> 

pressjnap  =  (sqrt(pressjnap))/(sqrt((double)(current_length))>; 
for  (i=0;  i  <=  current_Tength  &&  i  <=  MAX_LENGTH;  i++)  { 
bp_d0(i)  =  bpjdOti]  -  minalpha; 

> 

for(  i=0;  i  <=  MAXLENGTH;  i++  )  { 
ecg_des(i)  =  0; 

> 

qrs  =  nun_pts_in_period  /  3; 
ecgdes  Cqrs]  =  50; 

for(  i=(qrs- 1 );  i  >=  (qrs-6)  &&  i  >=  0;  i-*  )  i 
ecg_des(i]  =  ecg_coeff  atqrs-l-ij; 

) 

for(  i=(qrs+1);  i  <=  (qrs+9)  i  <*  current_length  i  <=  MAX_LENGTH;  i++  )  C 
ecg  des(i]  =  ecg  coeff  bti-qrs-1); 

> 

qrs  +*  mjn_pt8_in_period; 
ecg_destqrs]  =  50; 

for(  i=(qrs-1);  i  >=  (qrs-6)  i  >=  0;  i--  )  { 
ecg_des(i]  =  ecg_coeff  atqrs-1-i]; 

> 

for(  i=(qrs+1);  i  <=  (qrs+9)  &4  i  <=  current_length  &&  i  <=  HAXJ.ENGTH;  i++  )  { 
ecg  desti]  =  ecg_coeff  bCi-qrs-1); 

> 

qrs  +*  nun_pts_inj5eriod; 
ecg_destqrs]  =  50; 

for(  i=(ars-1);  i  >=  (qrs-6)  &&  i  >=  0;  i--'  )  { 
ecg  desti]  =  ecg  coeff_a[qrs-1-iJ; 

> 

for(  i=(qrs+1);  i  <=  (qrs+9)  4i  i  <=  cur rent_ length  &&  i  <=  NAX_LENGTH;  i++  )  { 
ecg  desti]  =  ecg  coeff  bti-qrs-1]; 

) 

setscreent&pagel ); 
set_up_mancmeter_di sp( ) ; 
set_up_i cu_di sp( ) ; 
set_up _process  _disp( ); 
set_up_opt i ons_bar ( ) ; 
upda  t  e_header ( h  eade  r ) ; 
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display(Spagel); 

most_recent_data  =  MAX_HEASUR£D  -  1  ; 
datalO] [gr]  =  graph  =  1; 
curs_pos  =  3; 

/*  Start  1kHz  system  clock  for  the  interrupt  routine:  */ 

i  *  set_timer<  2,  3,  5E6,  1E3  );  /*  tmr  2,md  3,3MHz  in, 1kHz  out  */ 

i  f  C  i  <  0  ) 

prir.  f("***  ERROR  in  programming  8254\n"); 

/*  Set  interrupt  frequency  for  the  interrupt  routine:  */ 

i  =  set_t'mer(  1,  3,  1E3,  INT_FREQ  );  /*  t1,m3,1k  in, !NT_FREQ  cut  */ 
if(  i  <  0  ) 

printfC1***  ERROR  in  programming  8254\n"); 

das8_state  =  enable_ints(  das8_state  ;;  /*  En  ints  on  DAS-8  board  */ 

set_imr(  INT_CHAN,  ON  );  /*  Clear  the  relevent  imr  mask  bit  »/ 

/*  Install  the  irr  for  the  interrupt  routine:  <  C-TOOLS+  )  */ 

isinstal(INT_TYPE,  arm  isr,  isr_id,  &isr_ctrl,  isr_stack,  STACKSIZE, 

NSTKS); 

das8_state  =  das8_state  |  D1_0UT_HI;  /*  Enable  interrupt  timer  */ 
outpC  DAS8CONTROL,  das8_state  ); 

for  (  loopcounter  =  0,  loopcntr  =  0,  most_recent_plotted  =  MAXMEASUREO  -  1;  ch  !=  'q1; 
loop_counter++K 

loop  cntr  =  <  loop_cntr  +  1  )  X  1000; 

/*  Wait  for  first  set  of  data  and  for  new  data.  */ 
while  ( lastjneasured_x  ==  lastjneasured); 

last_measured_x  =  tast_measured; 

arter  =  datallastjneasuredjO  [arl/10; 
cuff  =  data[last_a*asured_x] tcu]/10; 
venous  =  dataClast_measured_x]  [ve}/10; 
pps  =  deta[last_measured_x] [ppl ; 
skin  =  data[last_measured_x] Csk]/10; 
core  =  dataClast_measured_xj tco)/10; 

it  (major_error)  { 

if  ((stream  =  fopen( “errors. run",  "a"))  !=  NULL); 
else  printf('*Was  not  able  to  open  the  file."); 
fprintf(streaai,  "Xd\tXd\n",  nun_errors,  error_nun); 
for  (i  *  last_measured_x; 

i  >*  (MAX  MEa£|RE0  +  last  measured  x  >  10)  X  MAXMEASURED; 
i  =  (MAX_MEASURED  +  i  -  1)  X  MAX_MEASURE0)C 
fprintf (stream,  "Xd\t",  i); 
for  (j  =  0;  j  <=9;  j++)C 

fprintf(stream,  "Xd\t",  data[i]Cj]); 

) 

fputs("\n",  stream); 

> 

fputs("\n",  stream); 
fclose(stream); 
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utsoondlhigh_pitch,  long_duration); 

das8_state  =  das8_state  &  ~D1_0UT_HI;  /*  Disable  interrupt  timer  */ 

outp(  DAS8_C0NTR0L,  das8_state  ); 

/*  Closing  commands  for  the  interrupt  routine.  */ 

outpCDACO_HI ,0x32); 

outpCDAC0_L0,0); 

outpCDAC1_Hl ,0xFF); 

outpCDACl~LO,0xF0); 

/*  Restore  the  old  interrupt  vector.  */ 

isputvec  (INT_TYPE,  pisr_ctrl->prev_vec); 

set_imr<  INT_CHAN,  OFF  >;  /*  set  the  relevent  imr  mask  bit  */ 

setscreen(  &page2  ); 
setcolorC  (red  ); 

barC&out_x1,  &out_y1,  &out_x2,  &out_y2); 

setcolor(  (white  ); 

barC(in_x1,  (in_y1,  (in_x2,  (in_y2); 

setstclr(  (red,  (red  >; 

movtcurabsC  &messg_x,  (messg_y  ); 

setstextC  (messaoe_height,  (aspect,  (path  ); 

stextC  pmessagr  ); 

setstclrC  (white,  (white  ); 

movtcurabsC  (term_x,  (tercn_y  ); 

setstextC  (big_height,  &aspect,  (path  ); 

stextC  terminate  ); 

movtcurabsC  (quest_x,  (quest_y  ); 

setstextC  (questionjieight,  (aspect,  (path  >; 

stextC  startover  ); 

deltcurO; 

displayC  (page2  ); 

whileC  IkbhitC)  ); 
ch  =  getchC); 

if  Cch  ==  121  ||  ch  ==  89)  C 
answerlO]  =  'Y'; 
stextC  answer  ); 

> 

else  C 

answerlO]  =  *  N  • ; 
stextC  answer  ); 
goto  close  out; 

> 

setscreenC  (pagel  ); 
delboxO; 
mein_restart  *  1; 
goto  start; 


if  Cbasic_error)  { 

if  CCstream  «  fopenC "errors. run",  "a"))  !=  NULL); 
else  printfC'Was  not  able  to  open  tne  file."); 
fprintfCstream,  "Xd\t%d\n",  num_errors,  errorjxm); 
for  Ci  =  ta8t_measured_x; 

i  >=  last_measured_x  -  10;  i--K 
fprintfCstream,  "%d\t",  i); 
for  Cj  =  0;  j  <=9;  j++)C 


38 


"Use  or  disclosure  of  report  dats  is 
subject  to  the  restriction  on  the  Title 
page  of  this  Final  Report” 


GMS  Engineering  Corporation 


Contract  No.  DAMD17-88-C-8018 


fprintf (stream,  "Xd\t",  dataliHj]); 

> 

fputs("\n",  stream); 

) 

fputs(M\n",  stream); 
fclose(stream); 

basic_error  =  0; 
message_oo  =  1; 
num_points_msg_on  =  0; 
utsound(mid_pitch,  mid_duration); 

> 

if  (message_on)  £ 

setcolor(&bright_blue); 

btr(  &error_x1,  &error_y1,  &error_x2,  &error_y2  ); 
if  (on_off_toggle  ==  ON)  £ 

movtcurabs(&error_x1,  &error_y1); 
setstelr(&red,  &red); 
setstext(&error_height,  iaspect,  &path); 
stext(  pmessage  ); 
deltcur( ); 

on  off_toggle  =  OFF; 

> 

else  on_off_toggle  =  ON; 

nun_points_msg_on  +=  { last  jneasured_x 

+  MAxJmEASURHD  -  most_recent_plotted) 

X  MAX_MEASURED; 

if  (num _points_msg_on  >  (20  *  (int)  INT_FREQ)  )  £ 
nun_points_msg_on  -  0; 
setcolor(&bright_blu-  ; 

bar(  &error_x1,  &error_y1,  &error_x2,  &error_y2  ); 
messageon  =0; 

> 

> 


data(last_measured_x] tgr]  =  graph; 
update_manometer(  (float)  cuff  ); 
update  =  loop_cntr  X  (2  *  GRAPHS_E VERY_X ) ; 
update_icu(  update,  freeze,  lock,  inc_dec); 
update_process(  pps,  cuff,  venous,  core,  skin); 
update_options(curs  _pos); 
if  (new_header  ==  1)  update_header(header); 
most_recent_plotted  =  last_measured_x; 


if 


> 


(  kbhitO  H 

newkey  =  1; 
ch  3  getchO; 
if  (ch  *=  '0')  £ 

ch  3  getchO; 

> 


inc_dec  =  0; 

if  (ch  ==  13  it  newkey)  ; 
else 

if  (ch  >=  59  U  ch  <=  66  &&  newkey)  curs_pos  =  ch  ••  58; 
else 

if  (ch  >=■  49  it  ch  <=  56  &&  newkey)  curs_pos  =  ch  -  48; 
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else 

if  ((ch  ==  72  ||  ch  ==  75)  &&  newke1  )  C 
curs_pos-  ■ ; 
newkey  =  0; 

> 

else 

if  ((ch  ==  77  | |  ch  ==  80)  &&  newkey)  { 
curs  _pos++; 
rewkey  =  0; 

> 

else  goto  end_loop; 

if  (cursjx>s  >=  9)  curs_pos  =  1; 
else 

if  (curs_pos  <=  0)  curs_pos  =  8; 

if  (curs_pos  ==  1  H  newkey)  < 
freeze  *=  -1; 
frozen  =  0; 
newkey  =  0; 

> 

if  (curs_pos  ==  2  &&  newkey)  { 
lock  *=  -1; 
newkey  =  0; 

> 

if  (cursjxis  ==  3  &&  newkeyK 
incdec  =  -1; 
atupl  iir.it  =  0; 

if  (atlowlimit)  utsound(  lowpitch,  short  duration 
newkey  =  0; 

> 

if  (curs_pos  ==  4  &&  newkeyK 
inc_dec  =  1; 
at_low_limit  =  0; 

if  (at_up_limit)  utsound(  low _pitch,  short_duration  ; 
newkey  =  0; 

> 

if  (curs_pos  ==  5  &&  newkey) { 
newkey  =  0; 
check_settings  =  1; 
setscreen(Spage2); 

set_up_vs_sett i ngs _menu( check_set t i ngs ) ; 
display(&page2); 
while  (  fkbhitO  ); 
ch  =  getch(); 

if  (ch  ==  110  ||  ch  ==  78)  C 
answer  [0]  =  •  N  • ; 
stext(  answer  ); 

das8_state  =  das8_state  &  -O1_0UT_Hl;  /* 

outp<  DAS8_C0NTR0L,  das8_state  ); 

/*  Closing  commands  for  the  interrupt  routin 
outp(0AC0_H! ,0x32); 
outp<DAC0_LO,0); 
outp(DAC1  HI.OxFF); 

OUtp(0AC1~LO,0xF0); 

/*  Restore  the  old  interrupt  vector, 
isputvec  (INT_TYPE,  pisr_ctrl->prev_ vec); 


Disable  interrupt  timer  */ 

t.  */ 

*/ 
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endloop: 

/ 

> 


set_imr(  INTCHAN,  OFF  ); 
setscreen(  Spagel  ); 
delboxO; 
main_restart  =  1; 
goto  start; 

> 

if  (ch  ==  121  | |  ch  ==  89)  { 
answer  £0]  =  •  Y 1 ; 
stext(  answer); 

J 

setscreen(£page1 ); 
displayCipagel ); 

if  (curs_pos  ==  6  &&  newkeyK 
graph +♦; 
if  (graph  >=  5) 

graph  =  1; 
newkey  =  0; 

> 

if  (curs_pos  =-  7  &&  newkeyK 
rtewkey  =  0; 
help_system(); 

) 

if  (curs_pos  ==  8  &4  newkeyK 
ch  =  'q'; 

> 


/*  set  the  ret  event  imr  mask  bit  */ 


out_loop: 

das8_state  =  das8_state  &  -Ol_OUT_HI;  /*  Oissble  interrupt  timer  */ 

outp(  DAS8C0NTR0L ,  das8_state  ); 

/*  Closing  commands  for  the  interrupt  routine.  */ 
oti  tp(  D AC0_H  1 , 0x32  ) ; 
outp(DSCG~LO,Q); 
outp(DAw1_f*I  ,0xFF); 
outp(C’AC1_L0,0xF0); 

/*  Restore  the  old  interrupt  vector.  V 

isputvec  (iMT_TfpE,  pi st _ctr l ->prev_vec); 

set_imr(  IHT_CHAN,  OFF  );  /*  set  the  relevent  imr  mask  bit  */ 


/*  Close  halo  graphics.  */ 
close_out: 

t 

closegraphicsO; 
goto  qed; 

calO: 


outp(DAC0_HI ,0); 
outp(DAC0J.0,0); 

/*  Read  constants  front  file.  */ 
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if  ((stream  =  fopenC'cal  ib-arm",  "r+b"))  !=  NULL); 
else  printfC'Was  not  able  to  open  the  file."); 
result  =  fscanf(stream,  "Xd",  &k_art_p); 

result  =  fscanf(stream,  "Xd",  &k_cuff_p); 

result  =  fscanf(stream,  "Xd",  &k_vein_p); 

result  =  fscanf(stream,  “Xd",  &off_art_p); 

result  =  fscanf (stream,  "Xd",  &off_cuff_p); 

result  =  fscanf (stream,  "Xd",  &off_ve’n_p); 

fclose(stream); 

setcolor(  Sblue  ); 
cl  r( );' 

setstclr(  Swhite,  Swhite  ); 

setstext(  Scalheight,  Saspect,  Spath  >;' 

movtcurabs(  &cal_x,  Scal1_y  ); 

stext(  cal1_msg  ); 

movtcurabs(  &cal_x,  &cal2_y  ); 

stext(  cal2_msg  ); 

movtcurabs(  &cal_x,  &cal3_y  ); 

stext(  cal3_msg  ); 

movtcurabs(  &cal_x,  Scal4_y  ); 

stext(  caUjnsg  ); 

movtcurabs(  &cal_x,  Scal5_y  ); 

stext(  cal5_msg  ); 

movtcurabs(  &cal_x,  &cal6_y  ); 

stext(  cal6_msg  ); 

movtcurabs(  &cal_x,  &cal7_y  ); 

stext(  cal7jnsg  ); 

movtcurabs(  &cal_x,  &cal8_y  ); 

stext(  ca!8_msg  7; 

movtcurabs(  &cal_x,  Scal9_y  ); 

stext(  cal9_msg  ); 

setstclr(  Syellow,  &yellow  ); 

setstext(  &press_height,  Saspect,  Spath  );' 

a_p_ index  =  0; 
c_p_index  *  0; 
v_p_ index  =  0; 
last_averaged  =  0; 
last_measured_x  =  0; 
lastjneasured  =  0; 

/*  Start  1kHz  system  clock  for  the  interrupt  routine:  */ 

i  =  set_timer(  2,  3,  5E6,  1E3  );  /*  tmr  2,md  3,3MHz  in,1kHz  out  */ 

i  f  (  i  <  0  ) 

printf("***  ERROR  in  programming  8254\n"); 

/*  Set  interrupt  frequency  for  the  interrupt  routine:,  */ 

i  =  set_timer(  1,  3,  1E3,  IMT_FREQ  );  /*  t1,m3,1k  in, INT_FRE0  out  */ 
i  f (  i  <"0  ) 

printf("***  ERROR  in  programming  8254\n"); 

das8_state  =  enable_ints(  das8_state  );  /*  En  ints  on  DAS-8  board  */ 

set_irar(  1 KT_CHAM ,  ON  );  /*  Clear  the  relevent  imr  mask  bit  V 

/*  Install  the  1  -  for  the  interrupt  routine:  (  C-TOOLS+  )  */ 

isinstal(INT_TYPE,  arm_isr,  isr_id,  &isr_ctrl,  isr_stack,  STACKSIZE, 

NSTKS); 
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das8_state  =  das8_state  |  D1_0UT_HI;  /*  Enable  interrupt  timer  */ 
outp(  DAS8_C0NTR0L,  das8_state  ); 


newkey  =  0; 

cal  2:' 


if 


> 


(  kbhitO  K 

newkey  =  1; 
ch  =  getchO; 
if  (ch  ==  '0')  { 

ch  =  getchO; 

> 


if(  newkey  ==  1  (  (ch  ==  * e 1 )  ||  (ch  =='£')))( 

newkey  =  0; 
calflag  =  0; 
goto  cal99; 

> 

i f (  newkey  ==  1  SA  (  (ch  ==  ' l 1 )  ||  (ch  ==  't')  )  )  C 
newkey  =  0; 
calflag  *  12; 

last_averaged  =  (lastjneasured  +  11)  X  HAX_HEASURED; 
while(  last  measured  !  =  lastaveraged  ); 

last_measured_x  =  ( last  _measurecH-MAX_MEASURED- 1 )  X  HAX_MEASURED ; 

pressset 10]  =  0.0; 

presssettl]  =  0.0; 

pressset [2]  =  0.0; 

for(  i  =  0;  i  <  10;  i++)  ( 

press_set  (0)  +=  (dotile)  data  [( lastjneasuredx+MAXHEASURED- i )  X  MAXMEASURED]  [ar] ; 
pressset [1]  +=  (double)  data [( l astjneasuredx+MAX  MEASURED- i)  X  HAX_MEASURED) [cu] ; 
press_set  [2]  +=  (double)  data[( lastjneasuredx+MAx'MEASURED- i )  X  MAX  MEASURED]  [ve] ; 

> 

art_cal  =  press_set(0]  /  10.0; 
cuf_cal  =  press_set[1]  /  10.0; 
ven_cal  =  press_set[2]  /  10.0; 

> 


if(  newkey  ==  1  &&  (  (ch  ==  *h* >  ||  (ch  ==  • M 1 )  )  )  { 
newkey  =  0; 
if(  calflag  =*  12  )  ( 

last_averaged  =  (last_measured  +  11)  X  MAX_HEASURED; 
while(  last_measured  !=  last_averaged  ); 

last_measured_x  =  (last_measured+MAX_MEASURED-1)  X  MAX_NEASURED; 

press_setC0]  *  0.0; 

press_set(1]  =  0.0; 

press_set(2]  *  0.0; 

for(  i  =  0;  i  <  10;  i++)  { 

press_set[0]  ♦=  (double)  data[(last_measured_x+MAX_MEASURED-i) 

HAXMEASURED] tar] ; 

press_setC1]  +=  (double)  data[( lastmeasuredx+MAXMEASURFD- i ) 

MAX_MEASURED] tcu] ; 

press_set[2]  +=  (double)  data[(last_measured_x+MAX_HEASURED-i) 

HAX_MEASURED] [ve] ; 

) 


press_sett0]  =  press_set[03  /  10.0; 

press_setC1]  =  press_set[1]  /  10.0; 

press_set[2j  =  press_set[23  /  10.0; 

k_artj3  =  (int)  (  250000.0  /  (press_setCO]  »■  art_cal)  ); 

k_cuff _p  =  (int)  (  250000.0  /  (press_set[1]  -  cuf  cal)  ); 


X 

X 

X 
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> 


> 


k_vein_p  =  (int)  (  250000.0  /  (press_set [23  -  ven_cat)  ); 

o?f_art_p  =  (int)  ((art_cal  *  (double)k_art_p)  /  100.0); 

of f_cuf f_p  *  (int)  ((cuf_cal  *  (double)k_cuff _p)  /  100.0); 

o*f_vein_p  =  (int)  ((ven_cal  *  (6ouble)k_vein _p)  /  100.0); 

if  ((stream  =  fopenC'calib.arm",  "w+b"))  !  =  NULL); 

else  printfC'Was  not  able  to  open  the  f’le."); 

fprintf'stream,  "Xd\tl,l  k_art_p); 

fprintf(stream,  ,,Xd\t,,<  k_cuff_p); 

fprintf (stream,  ‘'Xd\t",  k  veinjs); 

fprintf (stream,  "Xd\t",  off_art_p); 

fprintf (stream,  "Xd\t",  off_cuff_p); 

fprintf(stream,  nXd\t",  off_vein_p); 

fclose(stream);' 

calflag  =  11; 


art _pres_ten  =  art_press  /  10; 
cuf_pres_ten  =  cuf_press  /  10; 
vein_pres_ten  =  vein_press  /  10; 
if{  ( lasi_measured  X  (int)  INT_FR£Q)  ==  0  )  { 

bar(  &calb1_x,  &calb1_y,  &calb2_x,  &calb2_y  ); 

movtcurabs(  Scalapx,  &calp_y  ); 

itoa(  art_pres_ten,  pressure,  10  ); 

stext(  pressure  ); 

movtcurabs(  &calcp_x,  &calp_y  ); 

itoa(  cuf_pres_ten,  pressure,  10  ); 

stext(  pressure  ); 

movtcur3bs(  Scalvpx,  &calp_y  ); 

itoa(  vein_pres_ten,  pressure,  10  >; 

stext(  pressure  ); 

deltcurO; 

> 

goto  cal 2; 


cal99: 

t 

calflag  =  0; 

das8_state  =  dasflstate  t  ~01_0UT_HI;  /*  Disable  interrupt  timer  */ 

outp(  OASSCONTROL,  das8_state  ); 

/*  Closing  coanands  for  the  interrupt  routine.  */ 
outp(DAC0_HI ,0x32); 
outp(DAC0_LO,0); 
outp(DAC1~HI ,0xFF); 
outp(0AC1~LO,0xF0); 

/*  Restore  the  old  interrupt  vector.  */ 

isputvec  (INT_TYPE,  pisr_ctrl ->prev_vec); 

set_imr(  1NT_CHAN,  OFF  );  /*  set  the  relevent  imr  mask  bit  */ 

setscreert(  Spagel  ); 
delboxO; 
main_restart  =  1; 
goto  start; 


qed: 

) 
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int  matherr(struct  exception  *x) 

( 

static  char  matherr_message[]  =  {  11  Math  error:  11  >; 

float  error_x1  =  (float)  700.0,  error_y1  =  (float)  765.0; 
float  error_x2  =  (float)  975.0,  error_y2  =  (float)  815.0; 
float  error_y3  =  (float)  768.0; 
float  error_height  =  (float)  20.0; 

int  i,  j;' 

FILE  *stream; 
int  path  =  0; 

error_nun  =  9; 
nun_errors++; 

if  ((stream  =  fopen( "errors. run",  "a"))  !=  NULL); 
else  printfCUas  not  able  to  open  the  file."); 
fprintf (stream,  "Xd\tXd\n",  num_errors,  error_num); 
fprmtf(stream,  "Xd\tXlf\tXlf\r.",  x->type,  x->arg1,  x->arg2); 
for  (i  =  last_measured_x; 

i  >=  last_measured_x  •••  10;  i  •  - )( 
fprintf (stream,  "Xd\t",  i); 
for  (j  =  0;  j  <=9;  j+*K 

fprintf(stream,  "Xd\t“,  datalil (j) ); 

> 

fputs("\n",  stream); 

> 

fputs("\n",  stream); 
fclose(stream); 

basic_error  =  0; 
messageon  =  1; 
nun_Doints_msg_on  =  0; 
utsouno(mid_pitch,  mid_duration); 
setcolor(&bright_blue); 

bar(  &error_x1,  &error_y1,  &error_x2,  &error_y2  ); 

movtcurabs(&error_x1 ,  &error_y3); 

setstclr(&red,  &red); 

setstext(&error_height,  iaspect,  &path); 

pmessage  -  x->name; 

stext(  matherr_message  ); 

stext(  pmessage  ); 

return(1 ); 


void  set  up  vs_settings  menu(int  check_settings) 

( 

float  out_x1  =  (float)  0.0,  out_y1  =  (float)  1000.0; 
float  out_x2  =  (float)  1000.0,  out_y2  =  (float)  0.0; 
float  in_x1  =  (float)  15.0,  in_/1  =  (float)  975.0; 
float  in_x2  *  (float)  985.0,  in_y2  =  (float)  725.0; 
float  text_x1  =  (float)  25.0,  text_y1  =  (float)  950.0; 
float  text_x2  =  (float)  975.0,  text_y2  =  (ftoar)  900.0; 
float  lower_in_x1  =  (float)  15.0,  lo«er_in_y1  -  (float)  675.0; 
float  lower_in_x2  =  (float)  985.0,  lower_in_y2  =  (float)  25.0; 

int  path  *  0; 

float  qu_height  =  (float)  35.0; 
float  height  =  (float)  40.0; 
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f'.-'at  nifnjieight  =  (float)  120.0; 
double  hrfloat,  sys_float; 

float  header_x  =  (float)  25.0,  header_y  =  (float)  900.0; 
float  hr_label_x  =  (float)  245.0,  hr_Tabel_y  =  (float)  750.0; 
static  char  hr_label[]  =  "bpm"; 

float  bp_label_x  =  (float)  825.0,  bp_label_y  =  (float)  750.0; 

static  char  bp_label[)  =  “nrnHg'1; 

float  hr_x  =  (float)  40.0,  hr_y  =  (float)  720.0; 

char  hr  [3]  ; 

float  sys_x  =  (float)  340.0,  sys_y  =  (float)  720.0; 
char  sys  (3); 

float  diag_x  =  (float)  540.0,  di8g_y  =  (float)  730.0; 
static  char  diagt]  =  "/"; 

float  dias_x  =  (float)  620.0,  dias_y  =  (float)  720.0; 
char  di as [3] ; 

float  quest ion_x  =  (float)  95.0,  question_y  =  (float)  600. C; 
static  char  questions 

=  "Accept  settings  and  begin?  (Y)es  or  (N)o:  "; 
static  char  presskey  [] 

=  "Accept  settings  and  continue?  (Y)es  or  (N)o:  "; 
static  char  calquesl) 

=  "Calibrate  or  check  transducers?  (Y)es  or  (N)o:  "; 
int  hatch_index  =  1; 

setcclor(&bright_blue); 

bar(4out_x1,  Sout_y1,  &out_x2,  &out_y2); 

setcolor(&blue); 

bar(4in_x1,  4in_y1,  4in_x2,  4in_y2); 

bar(&lower_in_xT,  &louer_in_y1 ,  ilower_in__x2,  4tower_in_y2); 
setcolor(4bright_blue); 

bar(4text_x1 ,  4text_y1,  4text_x2,  4text_^2); 

setstclr(&white,  Swhite); 

/*  Draw  header  and  labels.  */ 
sethatchstyle(4hatch_index); 
setstext(4height,  &aspect,  Spath); 
movt curabs ( &header_x ,  4header_y); 
stext(  header  ); 

movtcurabs(4hr_label_x,  4hr_label_y); 
stext(  hr_label  ); 

movtcurabs(4bp_label_x,  4bp_label_y); 
stext(  bplabel  ); 

/*  Convert  vs  settings  from  integers  to  character  strings.  */ 
itoa(hr_set,  hr,  10); 
itoa(sys_set,  sys,  10); 
itoa(dias_set,  dias,  10); 

/*  Write  vital  signs  settings.  */ 
setstext(4nua_height,  iaspect,  ipath); 
hr_float  =  fabsC(double)  hr_set)  ♦  .99999; 
hr_x  +=  (  (float)  (  2  -  (int)  log10(  hr  float  )  ) 

*  (float)  65.0); 
movtcurabs(4hr_x,  4hr  y); 
stext(  hr  ); 

sys_ftoat  *  fabs((doubl a)  sys_set)  +  .99999; 
sys_x  +=  (  (float)  (  2  *  tint)  log10(  sys  float  )  ) 

*  (float)  65.0); 
movtcurabs(4sys_x,  tsysy); 
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stextC  sys  );' 

movtcurabs(&diag_x,  Sdiag_y); 

stextC  diag  ); 

movtcurabsC&dias_x,  &dias_y); 

stext(  dias  ); 

iff  calflag  ==11  }  < 

setstextC&qu_height,  &aspect,  Spath); 
movtcurabsC&question_x,  fcquestiony); 
stextC  cal_ques  ); 
goto  done_check; 

) 

if  Ccheck_settings  ==  1){ 

setstextC&qu_height,  Saspect,  Spath); 
movtcurabs(&quest i on_x,  &question_y); 
stextC  press_key  ); 

> 

if  Ccheck_settings  *=  OK 

setstextC&quJieight,  Saspect,  &path); 
movtcurabsC&question_x,  &question_y); 
stextC  question  ); 

) 

donecheck: 

deltcurC); 


void  set  up  vs  queryC ) 

< 

float  out_x1  =  Cfloat)  0.0,  out_y1  =  cfloat)  700.0; 
float  out_x2  =  Cfloat)  1000.0,  out_y2  *  Cfloat)  00.0; 
float  in_x1  =  Cfloat)  15.0,  in_y1  =  Cfloat)  675.0; 
float  in_x2  =  Cfloat)  985.0,  in_y2  =  Cfloat)  25.0; 

float  hdr_lbl_x  =  Cfloat)  50.0,  hdr_lbl_y  =  Cfloat)  600.9; 

static  char  hdr_lbl[]  =  “Report  Heading:"; 

float  vss_lbl_x  =  Cfloat)  50.0,  vss_lbl_y  =  Cfloat)  450.0; 

static  char  vss_lbl C)  =  "Vital  Signs  Settings:"; 

float  hr_lbl_x  =  Cfloat)  36C.9,  hr_lbl_y  -  Cfloat)  390.9; 

static  char  hr_lbl[]  =  "HR"; 

float  sys  ’bl_x  =  Cfloat)  535.0,  sys_tbl_y  =  Cfloet)  390.0; 
static  chai  sys_lblU  *  "STS"; 

float  die,_ibl_x  =  Cfloat)  610.0,  diag_lbi_y  =  Cfioat)  390.0; 
static  c  e  diag_lbl[)  = 

float  f  3s_lbl_x  =  Cfloat)  640.0,  dias_lbl_y  =  Cfloat)  390.0; 
stat’  char  dias_lblt)  =  "DIAS"; 

flo.  man_lbl_x  =  Cfloat)  130.0,  man_lbl_y  =  Cfloat)  340.0; 
static  char  men_tbl[]  =  "Manual:"; 

float  auto_lbl_x  =  Cfloat)  210.0,  auto_lbl_y  =  Cfloat)  285.0; 

static  char  euto1_lbl[)  =  "I:"; 

static  char  auto2_lblC)  1  "2:"; 

static  char  autn3_lbl  []  *  "3:-'; 

static  char  auto4_lbl[]  =  “4:“; 

static  char  auto5_lbl[]  1  "5:"; 

;nt  hatch_index  =  1; 

static  int  auto_hr[4)  =  {60,80,72,40); 
static  int  auto_sys[4)  =  {120,90,160,150); 
static  int  auto_dias(4]  =  {80,50,90,70); 
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static  char  catibC]  =  "CALIBRATION"; 

char  hr  C33 ; 
char  sys  C3] ; 
char  dias  (3); 

float  hr_x  =  (float)  360.0; 
float  sys_x  =  (float)  535.0; 
float  dias_x  =  (float)  640.0; 

int  path  =  0; 

float  height  =  (float)  40.0; 

setcolor(4bright_blue); 

bar(4out_x1 ,  4out_y1,  4out_x2,  4out_y2); 

setcolor(&blue); 

bar(4in_x1,  4in_y1,  4in_x2,  4in_y2); 

/*  Write  labels.  */ 
setstcl r(4whi te,  &white); 
sethatchstyle(4hatch_index); 
setstext(4height,  taspect,  &path); 
movtcurabs(4hdr_lbl_x,  4hdr_lbl_v>; 
stext(  hdr_lbl  ); 

movtcurabs(&vsslbl_x,  &vss_lbl_y); 
stext(  vss_lbl  ); 
movtcurab6(Shr_lbl_x,  Shrlbly); 
stext(  hr_lbl  7; 

movtcurabs(4sys_lbl_x,  Ssyslbly); 
stext(  sys_lbl  ); 

movtcurabs7Sdiag_lbl_x,  &diag_lbl_y); 
stext(  diag_lbl  ); 

movtcurabs(4dias_lbl_x,  Miaslbly); 
stext(  dias_lbl  ); 
movtcurabs(4man_lblj(,  Smen_lbl_y); 
stext(  man_lbl  ); 

novtcurabs(4auto_lbl_x,  4auto_lbl_y); 
stext(  auto1_lbl  ); 
movtcurabs(4hr_x,  4auto_lbl_y); 
itoa(auto_hr(0] ,  hr,  loT; 
stext(  hr  ); 

novtcurabs ( &sys_x ,  4auto_lbl_y); 
itoa(auto_sys[0f,  sys,  10); 
stext(  sys  ); 

movtcurabs(4dias_x,  4auto_lbl_y); 
itoa(auto_dias(0T,  dias,  TO); 
stext(  dias  ); 
auto_lbl_y  --=  (float)  55.0; 
movtcurabs(4auto_lbl_x,  4auto_lbl_y); 
stext(  euto2_lbl  ); 
nwvtcurabs(4hr_x,  4auto_lbl_y); 
itoa(auto_hr[l7,  hr,  10); 
stext(  hr  ); 

movtcurabs(4sys_x,  4auto_lbl_y); 
itoa(auto_sys[1] ,  sys,  10); 
stext(  sys  ); 

movtcurabs(4dias_x,  4auto_lbl_y); 
itoa(auto_dias(1l",  dias,  TO); 
stext(  dias  ); 
auto_lbl_y  -=  (float)  55.0; 
movtcurabs(4auto_lbl_x,  4auto_lbl_y); 
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stextC  auto3_lbl  ); 
movtcurabs(&hr_x,  &auto_lbl_y); 
itoa(auto_hr(2f,  hr,  10); 
stext(  hr  ); 

movtcurabs(&sys_x,  &auto_lbl_y); 
itoa(auto_sys[2) ,  sys,  10); 
stext(  sys  ); 

movtcurabs(&di as_x,  &auto_i bl_y); 
itoa(auto_dlas[2],  dias,  10); 
stext(  dias  ); 
auto_lbl_y  -=  (float)  55.0; 
movtcurabs(&auto_ibl_x,  &auto_lbl_y); 
stext(  auto4_lbl  ); 
movtcjrabs(&hr_x,  &auto_lbl_y); 
i toa(auto_hrC3r,  hr,  10); 
stext(  hr  ); 

movt curabs ( &sys_x ,  &auto_tbl_y); 
itoa(auto_sys[3),  sys,  10); 
stext(  sys  ); 

/novtcurabs(&dias_x,  &auto_lbl_y); 
itoe(auto_dias[3) ,  dias,  10); 
stext(  dias  ); 
auto_lbl_y  -•  =  (float)  55.0; 
ipovtcurabs(8auto_lbl_x,  &auto_lbl_y); 
stext(  auto5_lbl  ); 
inevtcurabs(&hr_x,  &auto_lbl_y); 
stext(  calib  ); 
deltcurO; 


void  set  upjwoometer  di sp( ) 
C 

int  i; 

f  loa*-  bxgnd  xl 


float 

float 

float 

float 

float 


(float) 

(float) 

(float) 

(float) 


0.0,  bkgnd_y1  =  (float)  955.0; 
100.0,  bkgnd_y2  =  (float)  48.0; 
40.0,  mano*_y1  =  (float)  935.0; 
60.0,  nanom_y2  =  (float)  95.0; 


bkgnd_/2 
manomxl 
manon_x2 
*1,  *2.  yl,  y2; 
odd_align; 
float  odd_base  =  (float)  61.0; 
float  nwhgx  =  (float)  20.0,  *ahg_y  =  (float)  60.0; 
float  «ven_align; 
float  even  h**se  -  (float)  0.0; 
double  i_float; 
float  y_place; 

float  no_change  =  (float)  0.0; 
char  value_string[3] ; 
float  nu»_height  =  (float)  22.0; 
float  height  =  (float)  20.0; 
int  path  =  0; 

float  center_x  =  (float)  50.0,  centsr_y  =  (float)  75.0; 
float  bulb_radius  *  (float)  16.0,  anglel  =  (float)  105.0; 
float  angle2  =  (float)  75.0; 
float  top_radius  =  (float)  10.0; 

float  top_angle1  =  (float)  0.0,  top_angle2  =  (float)  180.0; 
float  te»p_y; 


xl  =  »ano»_x1  ♦ 
x2  =  *ano*_x2  - 
yl  =  *anoa»_y1  - 
y2  =  n»no(i_y2  ♦ 


(float)  2.0, 
(float)  2.0; 
(float)  2.0; 
(float)  2.0; 
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setcolor(4black); 
setfontC  fontname2  ); 

bar(4bkgnd_x1 ,  4bkgnd_y1,  4bkgnd_x2,  4bkgnd_y2); 

mowabs(  4center_x,  4center_y  ); 

setcolor(4white); 

bar(4x1,  4y1,  4x2,  4y2); 

setcolor(4dark_gray); 

fcir(4bulb_radius); 

setcolor(4white); 

arc(  4bulb_radius,  4angle1,  4angle2  ); 

movabs(  4center_x,  4manom_y1  ); 

arc(  4top_radius,  4top_angle1,  4top_angle2  ); 

temp_y  =  manom_y1  +  (float)  2.0; 

movabs(  4center_x,  4temp_y  ); 

flood(  4white  ); 

box(4manom_x1 ,  4manom_y1<  4manom_x2,  4mar>ofn_y2); 
setstext(4height,  Saspect,  4path); 
setstclr(4white,  0); 
movtcurabs(4nmhg_x,  4nrfig_y); 
stext(  ,,mmHgM  ); 

setstext(4rxjn_height,  4aspect,  4path); 

setcolor(4red); 

for(i=0;  i<=30;  i++)( 

y_place  =  manom_y2  >  (float)  15.0 

+  (float)  i  *  (float)  28.0; 
i  float  =  fabs(  (douf'e)  i  *  10.0  )  +  .99999; 
if  0X2  ==  0)  t 

even_align  =  evenbase  + 

(  (float)  (2  •  (int)  log10(i_f loat)  ) 

*  (float)  7.0  ); 

(novtcurabs(4ever_align,  4y_place); 

> 

else  < 

oddal ign  -  oddbase  + 

(  (float)  (2  (int)  tog10(i  float)  ) 

*  (float)  4.0  ); 

R»vtcurab6(4odd  align,  4y_place); 

> 

itoa(i*10,  value_string,  10); 
stext(  value_string  ); 

) 

set  font  (  fontnaiae ) ; 
oeltcurO; 


void  set_up_icu  dispO 
( 

float  xl  *  (float)  100.0,  yl  =  (float)  955.0; 

float  x2  *  (float)  1000.0,  y2  *  (float)  350.0; 

float  rect_x1  =  (float)  700.0,  rect_y1  =  (float)  930.0; 

float  reet_x2  =  (float)  975.0,  rect_y2  =  (float)  725.0; 

float  left_axis_x  =  (float)  110.0; 

float  right_axis_x  =  (float)  650.0; 

float  g1_axis_y  =  (float)  665.0; 

float  g1_axis_length  =  (float)  275.0; 

float  g2_axis_y  =  (float)  360.0; 

float  g2_axis_length  =  (float)  275.0; 

float  no_chsnge  =  (float)  0.0; 
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float  hatcf_length  =  (float)  10.0; 
float  minu.»_hatch_length  =  (float)  -10.0; 
float  left_start_x,  right_start_x; 

float  timer_label_x  =  (float)  130.0; 
float  timer_label_y  =  (float)  632.0; 
float  timer_height  =  (float)  18.0; 

static  char  timerjabel  t)  =  {  1 1  SECOND  BETWEEN  MARKERS'*  ); 

float  graph_label_x  =  (f loat)410.0; 

static  char  over_graph_ label  []  =  (  "FULL  SCALE  ■=  “  >; 

float  msec_label_x  =  (float)  580.0; 

static  char  msec_label[]  =  {  "MSECS"  ); 

float  height  =  (float)  20.0,  dig_height  =  (float)  30.0; 
float  diag_height  =  (float)  70.0; 
int  path  =  0; 

float  bp  Ibl  xl  =  (float)  700.0,  bp  lbl_y1  =  (float)  355.0; 
float  bpjbl”x2  =  (float)  910.0,  bpjbl_y2  =  (float)  455.0; 
static  char  bp_lbl[]  -  {  “mnHg"  >; 

float  hr_lbl_x  =  (float)  830. o,  hr_lbl_y  =  (float)  680.0; 
static  char  hr_lbl C3  =  <  "HR"  }; 

float  bpm_lbl_x  =  (float)  910.0,  bpm_lbl_y  =  (float)  620.0; 
static  char  bpra_lbl 0  =  {  "bpm"  >; 

float  sys_lbl_x  =  (float)  750.0,  sys_lbl_y  =  (float)  565.0; 
static  char  sys_lbl[]  =  {  "SYS"  ); 

float  dias_lbl_x  =  (float)  870.0,  dias_lbl_y  =  (float)  565.0; 
static  char  diaslbU]  =  {  “DIAS"  }; 

float  map_lbl_x  =  (float)  820.0,  map_lbl_y  =  (float)  450.0; 
static  char  maplblO  =  {  "MAP"  }; 

float  diag_lbl_x  =  (float)  819.0,  diag_lbl_y  *  (float)  485.0; 
static  char  diag  lbin  =  {  "/"  >, 

float  datex  =  (float)  705.0,  date_y  =  (float)  730.0; 

char  date  (9); 

int  hatch_index  =  1; 

float  date_height  =  (float)  30.0; 

float  gmsjt  =  (float)  735.0,  gms_y  =  (float)  820.0; 
float  gms_height  =  (f loat)100.0; 
static  char  gms[]  =  {  "GMS"  }; 

float  eng_x  =  (float)  720.0,  eog_y  =  (float)  820.0; 
float  eng_height  =  (float)  20.0; 

static  char  sng_corpt)  =  {  "Engineering  Corporation"  >; 

/*  Draw  background  rectangle.  */ 

setcolor(4blue); 

bar(4x1,  4y1,  4x2,  4y2); 

/*  Draw  info  rectangle.  */ 

setcolor(4bright_blue); 

bar(4rect_x1,  4rect_y1,  4rect_x2,  4rect_y2); 

/*  Write  company  name.  */ 
sethatchstyle(4hatch_index); 
setstclr(4white,  4white); 
setstext(4gms_height,  4aspect,  4path); 
n»vtcurabs(4gms_x,  4gms_y); 
stext(  gms  ); 

setstext(4eng_height,  4aspect,  4path); 
movtcurabs(4eng_x,  &engy); 


51 


"Use  or  disclosure  of  report  data  is 
subject  to  the  restriction  on  the  Title 
page  of  this  Final  Report". 


GMS  Engineering  Corporation 


Contract  No.  DAMD17-88-C-8018 


stextt  eng_corp  ); 

/*  Write  date.  V 

setstextt&datejieight,  Jaspect,  Spath); 
setstclrfSwhite,  iwhite); 

_strdate(date); 
movtcurabst&date_x,  &date_y); 
stext(  date  ); 

/*■  Draw  axes.  */ 
setcclor(&t ight_blue); 
left_start_x  =  left_axis_x  +  hatch_length; 
right_start_x  =  right_axis_x  +  minus_hatch_length; 
movabst&lef t_start_x,  &g1_axis_y); 
tnrel(&nirxjs_hatch_length,  &no_change); 
tnrel(&no_change,  Sg1_axi s_l ength); 
lnrel(&hatch_length,  &no_change); 
movabst&right_start_x,  &g1_axis_y); 
lnrel(&hatch_length,  &no_change7; 
lnrelt&no_change,  &g1_axis_length); 
lnreltSminus_hatch_length,  &no_change); 
movabst&lef t_start_x,  &g2_axis_y); 
t  nrel (&mi nus_hatch_l ength ,  &no_change ) ; 
lnrelt&no_change,  Ig2_axis_l ength); 
lnrelt&hatch_length,  &no_change); 
movabst&ri ght_start_x,  &g2_axi s_y) ; 
Inrelt&hatchjlength,  Sno_changeT; 

Intel  t&nochange,  &g2_axis_length); 

Inrel t&mi nus_hatch_length ,  &no_change) ; 

/*  Draw  timer  label.  */ 
setfontt  fontname2  ); 
setstextt&timerheight,  Saspect,  &path); 
movtcurabst&timer_label_x,  &timer_label_y); 
setstclrt&light_blue,  0); 
stext(  timer_label  ); 

movtcurabst&graph_label_x,  &timer_label_y); 
stext(  over_graph_ label  ); 
movtcurabs(&msec_label_x,  &timer_label_y); 
stext(  msec_label  ); 
setfontt  fontname  ); 

/*  Draw  BP  graph  label.  */ 
setstextt&height,  Saspect,  (path); 
movtcurabst&bptblxl,  ibplblyl); 
setstclrt&yellow,  0); 
stext(  bplbl  ); 

/*  Draw  digital  display  labels.  */ 
setstext(4dig_height,  Saspect,  Spath); 
movtcurabet&hr_lbl_x,  &hr_lbl_y); 
stextt  hr_lbl  ); 

movtcurabst&sys_lbl_x,  &sys_lbl_y); 
stextt  sys_lbt  7; 

movtcurabst&dias_lbl_x,  &dias_lbl_y); 
stextt  dias_lbl  7; 
movtcurabst&mep_lbl_x,  4map_lbt_y); 
stextt  map_lbl  7; 

setstextt&height,  Saspect,  Spath); 
movtcurabst&bp_lbl_x2,  &bp_lbl_y2); 
stextt  bp_lbl  7; 
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movtcurabs(&bpm_lbl_x,  &bpm_lbl_y); 
stext(  bcm_lbl  ); 

setstext(&diag_height,  Saspect,  Spath); 
movtcurabs(&diag_lbl_x,  &diag_lbl_y); 
stext(  diag_tbl  ); 
deltcurO; 


void  set_up_process_dispO 
{ 

float  xl  =  (float)  100.0,  yl  =  (float)  350.0; 
float  x2  =  (float)  1000.0,  y2  =  (float)  48.0; 

float  height  =  (float)  25.0; 
float  mnhgjleight  =  (float)  20.0; 
int  path  =  0; 

float  cuff_x  =  (float)  409.0,  cuff_y  =  (float)  320.0; 
static  char  cuff[]  =  {  "CUFF"  >; 

ftoat  press_x1  =  (float)  409.0,  press_y1  =  (float)  298.0; 

float  press  x2  =  (float)  460.0,  press_y2  =  (float)  171.0; 

static  char~press t)  ■  {  "PRESSURE"  >; 

float  venous_x  *  (float)  460.0,  venous_y  =  (float)  193.0; 

static  char  venous tl  *  (  "VENOUS"  }; 

float  mmhg_x1  »  (float)  479.0,  imhg_y1  =  (float)  265.0; 

float  mrahg_x2  =  (float)  530.0,  nwhg_y2  =  (float)  145.0; 

static  char  ramhgCj  =  0  "mmHg"  >; 

float  core_x  =  (float)  700.0,  core_y  =  (float)  193.0; 
static  char  cored  =  (  "CORE"  ' ' 

float  tempxl  =•  (float)  700.0,  tempvl  =  (float)  171.0; 

float  temp_x2  =  (float)  800.0,  temp_y2  =  (float)  289.0; 

static  char  tempi]  *  (  "TEMP"  >; 

float  skin  x  *  (float)  800.0,  skin_y  =  (float)  311.0; 

static  char  skinl]  =  {  "SKIN"  }; 

float  degrees_c_x1  =  (float)  755.0; 

floa:  degrees_c_y1  =  (float)  145.0; 

float  degrees_c_x2  =  (float)  855.0; 

float  degrees_c_y2  =  (float)  260.0; 

static  char  degrees_cO  =  C  MIC"  >; 

.’loat  cxI  =  (float)  382.0,  cyl  =  (float)  291.0; 

float  cx2  =  (float)  388.0,  cy2  =  (float)  270.0; 

float  vxl  =  (float)  434.0,  vyl  =  (float)  145.0; 

float  vx2  »  (float)  439.0,  vy2  =  (float)  128.0; 

float  radius  =  (float)  15.0; 

float  arc_radius  =  (float)  11.0; 

float  anglel  =  (float)  20.0,  angle2  =  (float)  160.0; 

float  cuff_gage_x  =  (float)  386.0; 

float  cuff_gage_y  =  (float)  315.0; 

float  venous_gage_x  =  (float)  437.0; 

float  venous_gage_y  =  (float)  170.0; 

float  s_ther»_x  =  (float)  790.0,  s_therm_y  =  (float)  270.0; 

float  c_thern_x  =  (float)  690.0,  c_therm_y  =  (float)  135.0; 

float  r>o_change  =  (float)  0.0; 

float  therm_height  =  (float)  50.0; 

ftoat  half_therm_width  =  (float)  4.0; 

float  therm_radius  =  (float)  3.0; 

float  ther*_angle1  =  (float)  0.0; 

ftoat  therni_angle2  =  (float)  180.0; 

float  end_arc,  who_cares; 
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/*  Draw  background  rectangle.  */ 
setcolor((whi  te); 
bar((x1,  (yl,  (x2,  y2); 

/*  Draw  loop  outline.  */ 
setcolor(Sred); 
draw_t  oop_out  l  i  neO  ,* 

/*  Write  labels  and  units.  V 
setstext((height,  (aspect,  (path); 
setstclr((blue,  (blue); 
movtcurabs((cuff_x,  (cuff_y); 
stext(  cuff  ); 

movtcurabs((press_x1 ,  (pressyl ); 
stext(  press  ); 

setstext((mnhg_height,  (aspect,  (path); 
movtcurabs((mn#ig_x1 ,  (nmhg_y1); 
stext(  imhg  ); 

setstclr((bright_pink,  (bright_pink); 
setstext(&height,  (aspect,  (path); 
movt curabs ( &venous_x ,  (venous_y); 
stext(  venous  ); 

movtcurabs((press_x2,  4press_y2); 
stext(  press  ); 

setstext((nmhg_height,  (aspect,  (path); 
movtcurab6((mmhg_x2,  (nntfig_y2); 
stext(  mrnbg  ); 
setstclr(&red,  (red); 
setstext((height,  (aspect,  (path); 
movtcurabs((core_x,  (corey); 
stextf  core  ); 

movtcurabs((temp_x1,  (temp  yl); 
stext(  temp  ); 

movtcurabs((degrees_c_x1 ,  4degrees_c_y1); 
stext(  degrees_c  ); 
movtcurabs((skin_x,  (skin_y); 
stext<  skin  ;; 

movtcurab6((tenp_x2,  (temp_y2); 
stext(  temp  ); 

movt curabs ( (degrees_c_x2 ,  (degrees_c_y2); 

stext<  degrees_c  ); 

deltcurO; 

/*  Draw  pressure  gages.  */ 

setcolor((bright_blue); 

bar(  (cxI,  (cyl,  (cx2,  (cy2  ); 

roovabs ( (cuf  f _gage_x ,  (cuff_gage_y); 

fcir(  (radius  ); 

setcolor((black); 

box(  (cxI,  .cyl,  (cx2,  (cy2  ); 

cir(  (radius  ); 

arc(  (arc_radius,  (anglel,  (angle2); 

seteclor((brigh«._pink); 

bar(  (vxl,  (vyl,  (vx2,  (vy2); 

movabs ( (venous _gage_x,  4venous_gage_y); 

fcir<  (radius  ); 

setcolor((black); 

box<  (vxl,  (vyl,  4vx2,  (vy2); 

cir(  (radius  ); 

arc(  (arc_radius,  (anglel,  4angle2); 
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/*  Draw  the.-mcxneters.  */ 

setcolor(  £red  ); 

movabs(  &c_therm_x,  &c_therm_y  ); 

InreK  &no_chanc»,  &therm_height  ); 

movreK  &half_therm_width,  &no_change  ); 

arc(  &therm_radius,  &therm_angle1 ,  4therm_angle2); 

movabsl  &c_therm_x,  &c_therm_y  ); 

movreK  &half_therm_width,  &no_change  ); 

arc(  &therm_radius,  &therm_angTe2,  &therm_angle1); 

inqarc(  Swhocares,  &who_cares,  &end_arc,  &who_cares  ); 

movabs(  &end_arc,  &c_therm_y  ); 

InreK  &no_change,  ithermjieight  ); 

movabs(  &s_therm_x,  &s_therm_y  ); 

InreK  Sno_change,  &therm_height  ); 

movreK  &half_therm_width,  &no_change  ); 

arc(  &therm_radius,  &therm_anglei ,  &therm_angle2  ); 

movabs(  &s_therm_x,  &s_therm_y  ); 

movreK  &half_therm_width,  &no_char>ge  ); 

arc(  &therm_raa  js,  &therm_angle2(  &therm_angle1); 

inqarc(  &who_cares,  &*ho_cares,  &end_arc,  &who_cares  ); 

movabs(  &end_arc,  &s_therm_y  ); 

InreK  Snochange,  &therm_height  ); 


> 

void  set_up_options_bar() 

< 

float  xl  =  (float)  0.0,  yl  =  (float)  0.0; 
float  x2  =  (float)  1000.0,  y2  *  (float)  47.0; 
int  path  =  0; 

float  height  *  (float)  22.0; 

float  words_x  =  (float)  4.0,  words_y  =  (float)  0.0; 
float  funcs_x  =  (floa»)  0.0,  funcsly  =  (float)  19.0; 
int  hatch_index  »  1; 

static  char  funclU  *  "  FI  F2  F3  "; 

static  char  wordl U  =  "FREEZE  LOCK-ZERO  DEC-SPEED"; 
static  char  func2(j  =  »  F4  F5  F6  "; 

static  char  word2[)  «  "  INC-SPEEO  SETTINGS  CHANGE -GRAPH" ; 
static  char  furc3U  =  “  F7  F8"; 

static  char  word3(]  =  "  HELP  STOP -PROCESS"  ; 

setcolori&bright  blue); 
barffixl ,  &y1,  6x2,  &y2); 
setfont(  fortnaae2  ); 
sethatchstyle(&hatch_index); 
setstclr(&«hite,  Swhite); 
setstexK&height,  Saspect,  &path); 
movtcurabs(tfuncs_x,  4funcs_y); 
stext{  funcl  ); 
stext(  func2  ); 
stext(  func3  ); 

movtcurab8(4words_«,  &uords_y); 

stext(  wnrdl  ); 

stext(  wnrciZ  ); 

stexK  woreB  ); 

setfonK  fontname  ); 

deltcurO; 

> 

void  updatejT»non*ter{  float  cuff_pressure  } 


55 


“Use  or  disclosure  of  report  data  is 
subject  to  the  restriction  on  the  Title 
page  of  this  Final  Report". 


GMS  Engineering  Corporation 


Contract  No.  DAMD17-88-C-8018 


float  div_length  =  (float)  14.0; 
float  minus_smali  =  (float)  -5.0; 
float  hatch_length  =  (float)  4.0; 
float  up_hatch  =  (float)  14.0; 
float  move_x,  move_y; 
float  no_change  =  (float)  0.0; 

float  manomxl  =  (float)  40.0,  manom_x2  =  (float)  60.0; 

float  manomyl  =  (float)  935.0,  manom_y2  =  (float)  95.0; 

float  manom_range; 

float  xl,  x2,  yl,  y2; 

float  max_pressure  =  (float)  300.0; 

static  float  old_cuff _press  =  (float)- 1.0; 

static  int  old_max_hatch  =  0; 

i nt  i,  max_hatch; 

int  tophatch,  bottom_hatch; 

float  heightchunk; 

static  int  f irst_time_manom  =  1; 

if  (manom_restart)  { 

old_cuff_press  =  (float) -1.0; 
oldjnaxjietch  =  0; 
first_time_manom  =  1; 
manom_restart  =  0; 

} 


height_chunk  =  (float)  2.0  *  up_hatch; 
xl  =  manomxl  +  (float)  4.0; 
x2  =  manom_x2  •-  (float)  4.0; 
yl  *  manomyl  -  (float)  2.0; 
y2  *  manom_y2  *  (float)  2.0; 
manomrange  =  yl  y2; 

max_hatch  =  ( int) (cuff _pressure  /  (float)  10.0); 
if  (cuff _pressure  >  (f loot)300.0)  cuff_pressure  =  (f loat)300.0; 
if  (cuff_pressure  <  (float)O.O)  cuff _pressure  =  (float)Q.O; 
cuff _pressure  =  y2  +  (cuff_pressure  /  maxjsrespure) 

*  manom_range; 

if  (first_time_manom)  { 

old_cuff  _preas  =  y2; 
setcolor(  Sdark_gray  ); 

bar(  &x1,  Scuff _pressure,  &x2,  Sold_cuff_press); 
top_hatch  »  29; 
bottom_hatch  =  0; 
first_time_manom  *  0; 

> 

else  t 


if  ((int)cuff joressure  (int)old_cuff_press)  return; 

if  (cuf f_pressure  <  old_cuff  press)  { 
setcolor(  &«hite  ); 

if  (cuff_pressure  <  y2)  cuff_pressure  =  y2;' 
bar(  Sxl,  &old_cuff_press,  &x2,  &cuff_pressure  ); 
top_hatch  a  oldjwx  hatch; 
bottom_hatch  =  <nax_hatch; 


if  (cuff_pressure  >  old_cuff_press)  f 
setcolor(  &dark_gray  ); 
if  (cuff _pressure  >  yl)  cuff_pressure  =  y1; 
bar(  Sxl,  &cuff_pressure,  &x2,  &old_cuff  press); 
top_hatch  =  mex_hatch; 
bottom  hatch  =  old_max_hatch; 

> 
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setcolor(  &red  ); 

move_x  =  manom_x1+(f loat)  2.0; 

move_y  =  manom_y2-( float)  1 -0+((f loat)bottom_hatch  *  height_chunk); 

movabs(£move_x,  &move_y); 

lnrel(&div_length,  &no_change); 

move_x  =  (float)  >1.0  *  hatch_length; 

setcolor(£red); 

for(i=bottom_hatch;  i <-29  &&  i<=top_hatch;  i++K 
movreKSuninusjHnal l,  £no_char>ge); 
movrel(&flMve_x,  Supjiatch); 
lnrel(&hatch_length,  &rto_change); 
movrel(&ninus_small,  &no_chartge); 
movrel(&fnove_x,  &up_hatch); 
lnrel(&div_length,  &no_change); 

> 

old_cuff_press  *  cuff_pressure; 
oldjnax_hetch  =  maxjiatch; 


void  update  icu(int  update,  int  freeze,  int  lock,  int  irtc_dec) 

{ 

int  hatch_ index  =  1; 
int  path  =  0; 

float  height  =  (float)  80.0; 
static  int  changed_date  =  0; 

int  time  over  graph,  temp_recent_data,  nun _pts_plotted; 
float  msecxl  «  (float)  527.0,  msec_y1  =  (float)  632.0; 
float  msec_x2  *  (float)  570.0,  msec_y2  *  (ftoat)  652.0; 
float  insecheight  =  (float)  20.0; 
char  msec_string[5] ; 
int  oldjnsec  *  0; 

float  hr_base_x  =  (float)  780.0; 
float  sys_base_x  =  (float)  700.0; 
float  dias_base_x  =  (float)  865.0; 
float  map_base_x  =  (float)  780.0; 
float  hr_x,  hr_y  =  (float)  590.0; 
float  sys_x,  sys_y  =  (float)  475.0; 
float  dias_x,  dias_y  =  (float)  475.0; 
float  mep  x,  map  y  =  (float)  360.0; 
float  plus  =  (float)  10.0; 
float  hr_y1  =  hr_y  ♦  plus; 
float  sys  yl  *  sys_y  +  plus; 
float  dias_y1  =  dias_y  ♦  plus; 
float  map_y1  =  map_y  ♦  plus; 

float  hr_x2  *  (float)  910.0,  hr_y2  =  (float)  675.0; 
float  sys_x2  =  (float)  835.0,  sys_y2  =  (float)  560.0; 
float  dias_x1  =  (float)  865.0,  dias_x2  *  (float)  1000.0; 
float  mp_x2  *  (float)  1000.0,  map_y2  =  (float)  445.0; 
char  string[3); 


static 

int 

sys  =  0; 

static 

int 

dias  =  999 

» 

static 

int 

hr  *  0; 

static 

int 

map  =  0; 

static 

int 

old_hr  =  - 

99; 

static 

int 

oldsys  = 

-99; 

static 

int 

old_dias  = 

•99 

static 

int 

old_map  = 

-99; 
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double  map_float,  hr_float,  sys_float,  dias_float; 

float  datejieight  =  (float)  30.0; 

float  time_x  =  (float)  860.0,  time_y  =  (float)  730.0; 

float  ti,me_x2  =  (float)  975.0,  time_y2  =  (float)  760.0; 

float  date_x  =  (float)  705.0,  date_y  =  (float)  730.0; 

char  date £9); 

char  time  19]; 

static  char  old_second  =  ‘g1; 

float  g_x1  =  (float)  112.0; 
int  g1_y1  =  669; 

float  g1_y1_float  =  (float)  6o9.0; 
float  g_x2  =  (float)  648.0; 
int  g1_y2  =  938; 

float  g1_y2_float  =  (float)  938.0; 
float  tength_graph,  length_plotted_graph; 
float  lertgth_left,  percent_of_line; 
float  y_di f f erence; 
int  g2_y1  =  362,  g2_y2  =  631; 

float  g2_y1_float  =  (float)  362.0,  g2_y2_float  =  (float)  631.0; 
float  over_x1,  old_over_x1; 
int  set  =  1; 

int  g1_range,  bp_range,  g2_range; 
int  bp  max,  bpjnin; 
int  bp; 

static  int  f i rst_time_bp  =  1; 
float  hatchlength  =  (float)  -3.0; 
float  dot_length  =  (float)  >1.0; 
float  nochange  *  (float)  0.0; 
float  timer_level  =  (float)  658.0; 
float  timerbase  =  (float)  655.0; 
float  timerheight  =  (float)  7.0; 
float  toptimer; 
float  newval; 
static  float  g2_oldval; 
static  float  ecggloldval; 
int  ecg,  ecg_range; 
int  ecgmax  =  10,  ecgjuin  =  -10; 
static  float  cuff_g1_oldval; 
static  float  venousg 1 _o l dva l ; 
int  press_range; 

int  pressmax  *  300,  pressjsin  =  0; 

int  cuff,  venous; 

static  float  ppsgloldval; 

int  pps,  pps_range; 

int  pp6_max  *  6000,  pps_min  *  0; 

int  temp_aiax  *  50,  teapjain  *  0; 

int  arter_i*ax  =  300,  arter_min  =  0; 

int  aore_old_data,  plotj»int,  previousjsoint; 

int  old_g1_graph  *  0; 

int  new_point; 

int  difference; 

int  less_new; 

static  int  num_loops  *  0; 

static  double  sua_squares  =  0.0; 

static  int  sy8_array(10]  =  (0, 0,0, 0,0, 0,0, 0,0,0); 

static  int  dies  array CIO] 

=  (999,999,999,999,999,999,999,999,999,999); 
static  int  map_array[10]  =  (0, 0,0, 0,0, 0,0, 0,0,0); 
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static  int  hr_arrayt10]  =  (0,0, 0,0, 0,0,0, 0,0, 0>; 
static  int  first_time  =  1; 

static  int  alphainc,  beta_inc,  alpha_sian,  oeta_sign; 
static  int  actual_pp,  desiredjsp,  err_pp,  err_dias; 

>nt  i; 

int  fldsize  =  3; 

static  int  positv_slope  =  1; 

static  int  reset  *  1; 

static  int  upper_not_crossed  =  1; 

static  int  louer_not_crossed  =  t; 

static  int  avg_bp  =  1; 

static  int  end_of jjeriod  =  0; 

static  int  end_of jseriod_last  =  0; 

int  arter_hi_max  =  360,  arter_low_max  =  330; 

int  temp_alrm_max  =  43; 

int  temp_dif f_max  =  10; 

int  pp3_alrm_max  *  6000; 

int  cuff_hijnex  =  360; 

int  cuff_lowjnax  =  330; 

static  int  nun_points_over_max  =  0; 


if  (icu_restart)  ( 

changed_date  =  0; 
sys  =  07 
dies  =  999; 
hr  =  0; 
map  =  0; 
old_hr  =  -99; 
oldsys  =  -99; 
old_dias  =  >99; 
old_map  =  -99; 
old_second  =  ‘g1; 
f irst_time_hp  =  1; 
nunloope  =  0; 
sun_squares  =  0.0; 
for  (i=0;  i<=9;  i++)  { 

sys_array(i]  =  0; 
dias_array[i]  =  999; 
map_array[i]  =  0; 
hr  arrayti]  =  0; 

> 

first_time  *  1; 
positv_stope  =  1; 
reset  *  1; 

upper_not_crossed  =  1; 
l ower_not_c  rossed  =  1; 
avg_bp  =  1; 
end_of_period  =  0; 
end_of_period_last  =  0; 
mj*_points_over_max  *  0; 
icu_restart  =  0; 

} 

/*  Draw  info  box.  Write  in  time  and  date.  V 
setcolor(  lbright_blue  ); 
sethatchstyle(4hatch_index); 
setstext(&date_height,  iaspect,  ipath); 
setstclrCSuhite,  &white); 


59 


"U«e  or  disclosure  of  report  data  is 
subject  to  the  restriction  on  the  Title 
page  of  this  Final  Report" 


GMS  Engineering  Corporation 


Contract  No.  DAMD17-88-C-8018 


s 


B 

I 

I 


_strtime(time); 

/*  Only  rewrite  date  if  it  has  changed.  */ 
if  (time CO]  =='0'  &&  timel1]=='0’  &&  ch.-nged_date  ==  0){ 
bar(  &date_x,  &date_y,  &time_x,  Stime_y2  ); 
strdate(date); 

movtcurabs(&date_x,  &date_y); 
stext(  date  ); 
changed_date  =  1; 

> 

/*  Only  rewrite  time  if  it  has  changed.  */ 
if  (time(7]  !=  old_second){ 

bar(  4time_x,  &time_y,  &time_x2,  &time_y2  ); 
movtcurabs(&time_x,  &tifre_y); 
stext{  time  ); 
deltcurO; 

> 

old_second  =  time [7] ; 


/*  Update  distance  to  move  point  across  screen  when  change  has 
been  requested.  */ 
if  ( i ncdec  !=  0)  { 

over  ♦=  (delta_over  *  inc_dec); 
if  (over  <=  mir._over)  { 
over  =  min_over; 
at_low_limit  =  1; 

> 

if  (over  >=  max_over)  { 
over  =  max_over; 
at  i4>_limit  =  1; 

> 

> 

over_x1  =  g_x2; 

g1_range  =  g1_y2  -  g1_y1; 
g2_range  =  g2_y2  •  g2_y1; 

/*  Set  bp  max  and  min  graph  values  depending  on  whether  locx 
or  unlock  zero  option  is  selected.  */ 
if  (lock  ==  1)  ( 

bpjnin  =  0; 
bp_max  =  300; 

> 

if  (lock  ==  -1)  { 

bp_min  -  dias  30; 
if  (bp_min  <  0)  bpjnin  '•  0; 
bpjnax  =  sys  +  30; 
if  (bp  max  >  300)  bpjnax  =  300; 

> 

bp_ range  =>  bp_max  -•  bp_min; 


/*  Update  sys,  dias,  map  and  hr  values.  */ 
new_point  =  (most_recent_plotted  +  1)  X  HAX_HEASURED; 

while  (  newjooint  !=  (last_measured_x  +  1)  X  MAX_MEASURED)  { 

/*  The  first  time  that  newjsoint  is  ever  greater  than  zero, 

it  is  possible  to  calculate  a  stope  (since  there  are  at 
least  two  data  points).  Until  the  slope  is  non-zero,  do  not 
process  the  data.  Once  the  slope  is  non_zero,  begin  processing 
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the  data  and  never  enter  this  loop  again.  */ 

if  (first_time)  { 

if  (  new_point  >=  1  )  { 

tess_new  =  new_point  •  In¬ 
difference  =  data_base[tess_new]  -  data  base  [newjooint] ; 
if  (difference  <  -2)  slope  =  1; 
if  (difference  >  2)  slope  =  -1; 


if  (slope  ==  0)  goto  end_of_dig_loop; 
else  { 

first_tiire  =  0; 

> 


/*  Calculate  whether  the  slope  of  the  waveform  is  flat,  negative,  or 
positive.  Consioer  it  flat  if  differences  are  small.  */ 

else  { 

less_new  *  (new_point  +  HAX_MEASURSD  •=  1)  X  MAX  HEASURED; 
difference  =  data_base[less_new]  -  database [newjooi nt] ; 
slope  =  0; 

if  (difference  <  -2)  slope  =  1; 
if  (difference  >  2)  slope  =  •1; 

> 

/*  For  every  point  check  for  values  over  allowable  limits.;  */ 

if  (data[new_point] [ar]  >  arter_low_max*10>  { 
errornum  =  6; 
nun_errors++; 

pmessage  =  &lo_arter_message[0] ; 
basic  error  =  T; 

> 

if  (data[new_point] [pp]  >  ppe_alrm_max>  { 
nun _points_overjaax++; 

if  (nun_points_over_max  >  (30  *  (int)  IMT_FREQ)  )  { 
error_nu*  =  7; 
num_errors++; 
nu*_points_over_max  =  0; 
pmessage  =  Sppsjnessage [0] ; 
basic  error  =  1; 

> 

> 

else  nun_points_over_max  =■  0; 

if  (data (new jaoint]  Icul  >  cuff_low  max*’10>  { 
error_nun  *  8; 
nun_errors++ ; 

pjes3age  =  &lo_cuff_message[0] ; 
basic  error  =  1: 

> 


if  ( data  [new  jxs  int]  tar)  >  arter_hi_max*10)  { 
error_nu«  =  1; 
nun_errors++; 
major_error  *  1; 

pmessage  =  &hi_arter_message[0j; 

> 

if  (data[new_point] [cu]  >  cuff_hi_mex*10)  { 
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error_nua  =  2; 

num_errors++; 

major  error  =  1; 

pmessage  =  &hi_cuff_messagetO); 

> 

if  (dataCnew_point]  Ico]  >  tefflp_alrm_max*10)  { 
errorjxr:  =  3; 
iiun_errors++; 
major_error  =  1;' 
pmessage  =  ScorejnessagefO] ; 

> 

if  (datafnewjjointHsk]  >  temp_alrm_max*10)  t 
error_num  =  4; 
nua_errors++; 
major_error  =  1; 
pmessage  =  Sskin  message [01 ; 

> 


/*  For  every  point,  update  nurter  of  points,  sun  of  squares,  ana  when 
appropriate,  systolic  or  diastolic  estimates.  */ 


num_pts++; 

/*  If  highest  value  so  far,  consider  it  systolic.  *7 
if  (  data_base[new_point]  >  sys_arrayCmnt_loops]*10  ) 

sys  ar  ray  [nise  i  oops]  =  data_baseCnewjx>int)/10; 

/*  If  lowest  value  so  far,  consider  it  diastolic.  */ 
if  (  data_base[new_point]  <  dias_array Cnu«_loops]*10  ) 

dias_array[nun_loops]  *  data_base(new_point)/10; 

sunsquares  +-  (double)  (data_base[new_point]/10) 

*  (double)  (data_basetnew_point]/10  ); 

/*  Determine  whether  have  reached  end  of  a  period  by  keeping 

track  of  when  waveform  passes  through  a  range  (at  3/4  of 
the  distance  up  between  systolic  and  diastolic)  with 
the  same  slope  as  it  had  at  the  end  of  the  last  period.  V 

avg_bp  =  ((3*  old_sys)  ♦  old_dias)  /  4; 

if  (slope  ==  positv_slope)  ( 


if  (lower_not_crossed)  { 

i"f  (  data_bese[new_point)  >  ((10*avg_bp)  -  20)  )  ( 
lower_not_crossed  =  0; 

if  (  data_base[new_point]  >  ((10*avg_bp>  +  20  )  )  { 
upper_not_crossed  -  0; 
end_of_periodt+; 
reset  =  0; 

> 

) 

> 

else  ( 

if  (upper_not_crossed)  { 

if  (data_base[new_point)  >  ((10*avg_bp)  +  20)  )  { 
upper_not_crossed  =  0; 
end_of  _per  i  ocb+; 
reset  =  0; 


> 
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> 

> 

/*  Reset  the  "not_crossed"  markers  for  next  time  slope  becomes 
positive.,  */ 

> 

if  (  (slope  !=  positv_slope)  SA  (reset  )  ( 
upper_not_crossed  =  1; 
lower_not_erossed  =  1; 
reset  =  1; 


/*  Only  calculate  and  update  digital  bp  values  at  end  of  a  period  or  when 
rxjn_pts  is  50%  greater  than  the  nun_pts_in _period.  */ 

if  (  (nunjits  ==  (int)  ((double)nun_pts_in_period  *  1.5)  )  || 
(end_of jseriod  !=  end_of _period_last)  )  <■ 

iff  nun j5ts  <  (int)  ((double)nun_pts_in_period  *  -.9)  )  { 
upper_not_crossed  =  1; 
lower_not_crossed  =  1; 
reset  =  1; 
end_of_peri od -  - ; 
goto  keep_going; 


if  (end_of_period  '  =  end_of_period_last  )  C 
hr_array[nun_loops]  =  (int) 

((60.0  /  (double)nunjsts) 

*  (1000.0  /  (double)sample_interval)); 

map_array(nun_loops3  =  (int)(  sqrt(sun  squares)  /  sqrt((double)nun_pts)); 


nun_pts  *  0; 
nun_loops++; 

if  (nun_loops  >=  UPOATE_X_LOOPS){ 
nun_loops  =  0; 

sys  *  0; 
dias  =  0; 
map  =  0; 
hr  =  0; 


for(i=0;  i  <  UPDATE_X_l.0OP$;  i++K 
sys  ♦*  sys_array(i)  ; 
sys_array[i]  =  0; 
dias  ♦=  dias_array[i); 
dias_array(i]  =  999; 
map  +=  map_arrayti] ; 
map_array[i]  =  0; 
hr  +=  hr_array[i); 
hr  arrayCi]  =  0; 

> 

sys  =  sys  /  UPDATE_X_lOOPS; 
if(  sys  <  0  )  sys  =  0; 
if(  sys  >  300  )  sys  =  999; 
sys_valve  =  sys; 
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dias  =  dias  /  UPOATE_X_LOOPS; 
if(  dias  <  0  )  d>as  =  0; 
if(  dias  >  300  )  dias  =  999; 
dias_valve  =  dias; 
map  =  map  /  UPDATE_X_LOOPS; 
if(  map  <  0  )  map  =  0; 
if(  map  >  300  )  map  =  999; 
hr  =  hr  /  UPOATE_X_LOOPS; 
if(  hr  <  0  )  hr  =  0; 
if(  hr  >  180  )  hr  =  999; 
if(  sys  <  dias  )  { 
sys  =  0; 
dias  =  0; 


/*  Write  in  large  bp  numbers  if  they  have 

changed.  For  hr  and  map,  only  write  values 
if  end  of  period  has  been  reached  and  is  equal 
to  update_x_loops.-  */ 

setcolor(  &blue  ); 
setstext(&height,  Saspect,  &peth); 
setstclr(&yellow,  &yellow); 
if  <end_of_period  !=  UPDATE_X_LOOPS)  { 

barf  4hr_base_x,  &hr_y1 ,  &hr_x2,  &hr_y2  ); 
bar(  &map  base  x,  fenapyl,  &map_x2,  &map_y2  ); 

> 

if  (hr  !=  old_hr  &&  end_of _period  ==  UPDATE_X_LOOPS)  { 
bar(  Jhrbasex,  &hr_y1,  4hr_x2,  &hr_y2  ); 
hr_float  =  fabs( (double)  hr)  +  .99999; 

hr_x  =  hr_base  x  +  (  (float)  (  2  >•  (int)  log10(  hr^loat  )  ) 

“*  (float)  35.0); 
movtcurabs(&hr_x,  &hr_y); 
itoa(  hr,  string,  10  ); 
stext(  string  ); 

> 

if  (sys  !=  old_sys)  { 

bar(  isysbasex,  4sys_y1 ,  &sys_x2,  &sys_y2  ); 
sys_float  *  fabs((doubTe)  sys)  +  .99999; 

sys_x  =  sys  base  x  +  (  (float)  (  2  -<  (int)  log10(  sys  float  )  ) 

*  (float)  35.0); 
movtcurabs(4sys_x,  4sys_y); 
itoa(  sys,  string,  10  ); 
stext(  string  ); 

> 

if  (dias  old_dias)  { 

bar(  fcdias_base_xt  &dias_y1,  tdias_x2,  &sys_y2  ); 
dias_float  *  febs((double)  dias)  ♦  .99999; 
dias_x  *  dias_base_x  +  (  (float) 

(  2  --  (int)  tog10(  dias  float  )  ) 

*  (float)  35.0); 

»ovtcurabs(&dias_x,  &dias_y>; 
itoa(  dias,  string,  10  ); 
stext(  string  ); 

> 

if  (map  !=  oldjnap  &&  end_of jaeriod  ==  UPDATE_X_LOOP3)  { 
bar(  4map_base_x,  &nap_y1,  4map_x2,  &mep_y2  );' 
map_f loat  *  fabs((doubTe)  map)  +  .99999; 

map_x  =  map_base_x  +  (  (float)  (  2  (int)  log10(  map_float  )  ) 
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*  (float)  35.0); 
movtcurabs(&map_x,  &map_y); 
itoa(  map,  string,  10  ); 
stfcxt(  string  ); 

> 

deltcurO; 
old_hr  =  nr; 
old_sys  =  sys; 
old_dias  =  dies; 
old_map  =  map; 

/*  adjust  coefficients  alpha  and  beta  to  bring  actual  pressures  to  set  point  */ 


keep_going: 


actual _pp  =  sys  >-  dias; 

desired_pp  =  sys_set  •  dias_set; 

alpha_inc  =  50; 

beta_inc  =  50; 

alpha_sign  =  1; 

beta_sign  =  1; 

err_pp  =  abs(  actual _pp  ---  desiredjjp  ); 

if(  err_pp  <=  25  )  alpha_inc  =  20; 

if(  err_pp  <=  15  )  alpha_irte  =  10; 

if(  err_pp  <=  10  )  alpha_inc  =  5; 

if(  err_pp  <=■  5  )  atpha_inc  =  1; 

if(  err_pp  <=  1  )  alpha_inc  =  0; 

if(  actual_pp  >  desired_pp  )  alpha_sign  =  -1; 

alpha  =  alpha  ♦  (atpha_sign  *  alpha_inc); 

if(  alpha  >  1000  )  alpha  =  1000; 

if(  alpha  <  10  )  alpha  =  10; 

errdias  =  abs(  dias  •  dias_set  ); 

if(  err  dias  <=  25  )  beta  ine  =  20; 

if(  errdias  <*  15  )  betaine  =  10; 

if(  err_dias  <=  10  )  beta_inc  =  5; 

if(  err_dias  <=  5  )  beta_inc  =  1; 

if(  err_dias  <=  1  )  beta_inc  =  0; 

if(  dias  >  dias_set  )  beta_sign  =>  -1; 

beta  =  beta  +  <beta_sign  *  betaine); 

if(  beta  >  1000  )  beta  =  1000; 

i f <  beta  <  1  )  beta  =  1; 

if(  beta  >  (  alpha  *  2  )  )  beta  =  <  alpha  *  2  ); 
end_of_period  =  0; 

> 

end_of  _period_last  =  end_of  jaeriod; 

sun_squares  =  0.0; 


) 


/*  For  every  point,  check  whether  values  are  above  or  below  max  or 
min  values.  */ 

if  (data  Cnew__point]  Car] /10  >  bp_max)  datatnew _point][arJ  =  bp_mex*10; 
if  (data [new jxsint] tar]/10  <  bp_min)  data [new _poi nt) [arl  =  bp_min*10; 
if  (data[new_point] Cec]/10  '  ecg_max)  dataCnew _point)(ec)  =  ecg_max*10; 

if  (datatnewjsoint] tec]/10  <  ecg_min)  data (new _poi nt) [ec)  =  ecg_min*10; 

if  (data£new_point] teu]/10  >  press_max)  data[new_point] Ccu]  =  press_max*10; 

if  (data (new _point]  [cu)/10  <  press_min)  data[newj»int)  [cu]  =  press_min*10; 

if  (data[new_point]  tppl  >  pps_max)  data[new_point]  [pp]  =  ppsjnax; 
if  (datatnew_point)  [pp]  <  ppsjnin)  data[r»ew_point)  [pp)  =  pps_min; 
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if  (data[r>ew_point]  Cve]/10 
if  (datatnewjjoint] [ve]/10 
if  (datalnewjxsint]  [co]/10 
if  (data[new_point]  [co]/10 
if  (data[new j»int]  [sk]/10 
if  (data[newj»int]  [sk]/10 


> 

< 

> 

< 

> 

< 


pressjnax)  datatnewjxrint]  [ve] 
pressjnin)  data[new_point] [ve] 
tefflpjnax)  data[newj»int]  [ar] 
tempjtiin)  data[new_point]  [ar] 
tempjnax)  data[new_point]  [ar] 
tempjnin)  datalnewjsoint]  [ar] 


=  pressjnax* 10; 
=  pressjnin*10; 
=  tefflpjnax*  10; 

=  tempjnin*10; 

=  tempjnax‘10; 

=  tempjnin*10; 


end_of_dig_loop: 

> 


newjsoint  =  ++new _point  X  MAX_MEASURED; 


newpoint  =  lastjneasured_x; 

while  (  new_point  !=  most_recent_data  )  { 

data[new_point]  [sk]++; 

data[new_point] [di]  =  over; 

datalnewjxiint]  [gr]  =  data[lastjneasured_x] [gr] ; 

/*  Calculate  y  graph  positions  for  newest  set  of  data.  */ 
ecg  =  data  [new  j»int]  [ec]/10; 
ecg_range  =  ecgjnex  -  ecgjnin; 

data [new_point] Tec]  =  glyl  +  (int)  (  (float)(ecg  -  ecgjnin) 

*  (f loatjglrange  /  (f loat)ecg_range  ); 

cuff  =  datalnewjxiint]  [cu]/10; 

press_range  =  pressjnax  -  pressjnin; 

data[new_pointj  [cu]  *  g1_y1  *  (int)  (  (cuff  pressjnin) 

*  <f lcat)g1_range  /  (ftoat)press  range  ); 

venous  =  dc.a[new_ooint]  [ve]/10; 

data  [new  jm  i  nt]  [ve]  =  g1_y1  +  (int)  (  (venous  •-  pressjnin) 

*  (f loat)g1_range  /  (float)press  range  ); 

pps  =  d8ta[newj»intj  Jpp]; 
ppsrange  =  ppsjnax  •  ppsmin; 

date[new_point]Tpo]  -  gl.yl  *  (int)  (  (pps  ••  ppsjnin) 

*  (f loat)g1_range  /  (t loat)pps_range  ); 

data [new _poi nt] [ra]  =  borange; 
bp  =  datatnew  point]  [ar]/10; 

datalnew _pcint]  [ar]  =  g2_y1  +  (int>(  (bp  >-  bpmifi)  * 

(float )g2_range  /  (f loat)bp_range  ); 

data  [new _oointj  [sk]  =  lastjnessured; 
datalnew  jxiint]  [col  =  lastjneasuredjc; 

new_point  =  (MAX  MEASURED  <  --newjxint)  X  MAX  MEASURED; 

) 

■nost_-ecert_data  =  tast_measured_x; 

/*  If  graphs  are  already  in  freeze  state,  do  not  update  graphs 
at  all.  Skip  over  the  rest  of  the  subroutine.  */ 
if  (  i frozen  )  { 

sstcolor(  feblue  ); 

/*  If  .iust  freezing  graph,  draw  navy  background  to  prepare 
to  update  both  graphs.  */ 
if  [freeze  ==  1)  setcolor(  tnavy  }; 

/*  Only  draw  over  old  graph  if  a  rww  graph  is  to  be  drawn..  */ 

if  ( update  ==  GRAPHS JVERYJC  jj  freeze  ==  1)  { 

bar(&g_x1,  &g1_y1_f loat,  4g_x2,  4g1_y2  float); 
barf&gxl,  4g2_y1_f lost,  4g_x2,  4g2_y2~f Icat); 
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top_timer  =  timer_base  +  ti,ner_height; 
setcolor(  &blue  ); 

fcar(  &g  x2,  &timer_base,  4g_x1,  &top_timer  ); 

> 

/*  Prepare  to  keep  track  of  length  of  graph  plotted  and 

whether  there  is  more  data  left  to  plot  in  data  array  as 
moving  backwards  through  array.  */ 
length_graph  =  g_x2  -  g_x1  (float)  1.0; 

draw_graph_labels(  data[most_recent_data3 [gr], 

bp.  min,  bpjnax); 

/*  Loop  to  oraw  top  graphs.  Starts  with  most  recent  data  point  at  the 
right  of  the  screen  and  continues  to  draw  every  previous  point 
until  there  is  no  more  old  data  or  reach  the  end  of  the  graph. 

Only  draws  graph  when  have  just  frozen  or  it  is  time. 

*/ 

if  (update  =-  GRAPHS_£VERY_X  ||  freeze  ==  1)  ( 
more_old_data  =  1 ; 
lengthj>lotted_graph  =  (float)  0.0; 

setc.'  lor(&light_blue); 
movabs(  &g_x2,  &timer_level  ); 
lnabs(  &g_x1,  Stimerlevel  ); 

for(  plot_point  =  most  recent jiata; 

more_old_data  &&  length_plotted_graph  <  ler.gthjjraph; 
plotjoint--)C 

plot _point  =  (MAXHEASURED  +  plotjoint)  X  MAXMEASURED; 
previous  joint  =  (MAX_MEASURED  +  plot  joint  T)  X  MAXMEASURED; 

if  (data (previous joint]  (di]  ==  999)  { 
more_old_data  =  0; 
goto  end_lp1; 

> 

length  jlotted_graph  +=  (float)  data  [plot  joint]  [di] ; 

if  ((plot joint  X  (int)  INTJREQ)  ==  0)  < 

over_x1  =  g_x2  length  jlotted_graph; 
if  (over_x1  <  g_x1)  goto  end_lp1; 
movabs(  &over_x1,  &timer_base  ); 
lnrel(  inojhange,  itimer  height  ); 

) 

end_lp1 : 

f 

> 


more_old_uata  =  1; 
lengthjlottedjjraph  =  (float)  0.0; 
over_x1  =  g_x2; 

for(  plot  joint  =  most  jecentjiata; 

more_old_data  tt  lengthjlotted_graph  <  length_graph; 
plotjoint--  )< 

plot  joint  =  (MAX  MEASURED  +  plotjoint)  X  MAX  MEASURED; 
previous  joint  =  (MAX_NEASURED  +  plot  joint  -  T)  X  MAX_MEASURED; 
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if  (data[previous j»int][di]  ==  999)  { 
more_old_data  =  0; 
goto  end  lp2; 

) 

old_over_x1  =  over_x1; 

over_x1  -=  (float)  data [plot _point][di] ; 

tength_plotted_graph  +=  (float)  datatplot  jxoint]  [di]; 

if  (datatplot _point]  [gr]  ==  1)  { 

/*  Draw  portion  of  ecg  grach.  */ 

if  (data [plot _point] tgr)  '=  otd_g1_graph)  { 
setcolor(  Sbright_green  ); 
ecg_g1_oldval  =  (float)  data[plot_point] [ec] ; 
if  (old_g1_graph  ==  OK 

movabs(Sg  x2,  Secg_g1  oldval);' 

> 

elsef 

movabs(&old_over_x1 ,  Secg_g1  oldval); 

> 

) 

ecg_g1_oldval  =  (float)  data [previous jjoint] [ec] ; 

/*  For  last  point  that  will  be  plotted  on  graph 

(leftjnost  edge)  compute  the  e.idpoint  of  the  portion 
of  the  graph  that  is  being  graphed.  */ 
if  (over_x1  <=  g_x1)  { 

length_Teft  =  old_over_xl  •  g_x1  •  (float)  1.0; 
percent_of_line  =  length_left  /  (float)  data[plot_point] [di); 
y_difference  =  (float)  (data[previousj»int] [ec) 

-  data[plotjx>int]  [ec]); 
ecg_g1_oldval  =  (floaty  datatplot  point) [ec] 

+  percent_of_line  *  ydifference; 
over_x1  =  g  xl  ♦  (float)I.O; 

) 

lnabs(Sover_x1,  &ecg_g1_oldval); 


else  if  (datatplot _point]  [gr]  ==  2 

1 1  data[plotjx>int]  [gr]  ==  3)  { 

/*  Draw  portion  of  cuff  graph.  */ 

if  (  datatplot _point]  [gr]  ==  2)C 

if  (datatplot __point][gr]  !=  old_g1_graph)  { 
setcolor(  &bright_blue  ); 

cuff_g1_oldval  *  (float)  datatplotjsoint] [cu] ; 
if  (old_g1_greph  ==  OK 
movabs(Sg  x2,  &cuff_g1_oldvat); 

) 

else{ 

movabs(Sold_over  xl.  Scuff  gl  oldval); 

> 

> 

cuff_g1_oldval  =  (float)  data[previous_point] [cu] ; 

/*  For  last  point  that  will  be  plotted  on  graph 

(leftjnost  edge)  compute  the  endpoint  of  the  portion 
of  the  graph  that  is  being  graphed.  */ 
if  (overjtl  <=  g_x1)  { 

length  left  =  old_over_x1  >•  g_x1 

-  (float)  1.0; 

percent_of_line  =  length_left 

/  (float)  datatplotjxint]  [di]  ; 


68 


'Um  or  'iselosure  of  report  data  is 
subject  to  the  restriction  on  the  Title 
page  of  this  final  Report". 


GMS  Engineering  Corporation 


Contract  No.  DAMD17-88-C-8018 


yjiifference  =  (float)  (data[previous_point] [cu] 

■  data [plot  jsoint]  Ccu)  ); 
cuff_g1_oldval  =  (float)  datetplotjxn'nt]  [cu] 

+  percerit_of_l  ine  *  y_difference; 
over  xl  =  g_x1  +  (float)I.O; 

> 

inabs(&over_x1  &cuff_g1_oldval); 

\ 

/*  Draw  portion  of  venous  gr<.ph.  */ 

if  (  dataiplotj»int]  [grj  ==  3)  { 

if  (data [plot _point) [gr]  '  =  old_g1_graph)  { 
setcolor(  &bright_pink  ); 

venous_g1  «ldval  =  (float)  data [plot _point] [ve] ; 
if  (oK_gl_graph  ==  0)( 
movaos(&g  ,.2,  &venous_g1_oldval); 

> 

else! 

mo vabs  ( &o  l  d_o ve  r_x  1 ,  & venous_g  1  _o  l  cfva  l ) ; 

> 

> 

venous_g1_oldval  =  (f loat)data[previousjx>int] [ve] ; 

/*  For  last  point  that  wilt  be  plotted  on  graph 

(leftjnost  edge)  compute  the  endpoint  of  the  portion 
of  the  graph  that  is  being  graphed.  */ 
if  (over_x1  <=  g_x1)  ( 

length  left  =  old_over_x1  >•  g_x1 

•  (float)  1.0; 

percent_of_t ine  *  length_left 

/  (float)  data [plot_point] [di] ; 
y_difference  *  (float)  (data[previousjxiint)  [ve) 
•  data[plot_point][ve]); 
venous_g1_oidval  =  (float)  data[plot_point] [ve] 

+  percent_of_line  *  y_difference; 
over  xl  =  g_x1  +  (float)I.O; 

> 

lnabs(&over_x1 ,  Svenous  gl  oldval); 

> 

> 

else  if  (dataCplotjXJint!  [grj  a«  4)  { 

/*  D  -aw  portion  of  pps  graph.  */ 

if  (datatplot  jxn'nt]  [gr]  '=  old_g1_graph)  { 
setcolor(  &bright_orange  ); 
ppsjj1j>ldval  =  (ftoat)  datelplotjxjinr]  [pp] ; 
if  (old_g1_graph  ==  OK 
n»vabs(&g_x2,  &pps  gl  oldval); 

> 

else! 

movabs(&old  over_x1,  &pps_y1_oldval ); 

> 

> 

pps_g1_oldval  =  (float)  data  [previous  j»int]  [pp); 

/*  For  last  point  that  will  be  plotted  on  graph 

(leftjnost  edge)  compute  the  endpoint  of  the  portion 
of  the  graph  that  is  being  graphed.  */ 
if  (overxl  <=  g_x1)  C 

length_teft  =  oTd_over_x1  •-  g_x1  -  (float)  1.0; 
percent_of_l ine  =  length_ieft/  (ftoat)  data [plot  jooint] [di] ; 
yjfifference  =  (float)  (data [previous jtoint]  [pp] 
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■-  datatplot_point]  tpp]  ); 
pps_g1_oldval  =  (float)  data [plot_point] [pp] 

+  percent_of_l ine  *  y_difference; 
over_x1  =  g  xl  +  (float)I.O; 

> 

l nabs ( &over_x 1 ,  &pps_g 1 _o l dva l > ; 

> 

°ld_o1_g'-aph  =  dataCplot  _point)[gr]; 


end_lp2: 


> 

/*  Calculate  the  number  of  milliseconds  represented  over  the  length  of  the  graph.  */ 
temp_recent_aata  =  most_recent_data; 

if  (temp_recent_data  <  plot _point)  t“wp_recent_data  ♦-  KAX_MEASURED; 
num_pts_plotted  =  temp_recent_data  >  plot_point; 

tims_over_graph  =  (int)  (((double)  nur._pts_plotted  /  1NT_FREQ)  *  1000.0); 
if  (time_over_grapn  •=  oldjnsec)  ( 
setcolor(  &blue  ); 

bar(  &msec_x1,  Smsecyi ,  &msec_x2,  &nsec_y2  ); 
if  (  •n»re_old_data  )  goto  donemsec; 
oldjnsec  =  time_over_graph; 
setstext(&msec_height,  Saspect,  &path); 
setstclr(  &l ight_blue,  &light_blue  ); 
movtcurabs(&nsec_x1,  imsecy1 ); 
itoa(time_over_graph,  msecstring,  10); 
stext(  msec_string  ); 
deltcur(); 

> 

donemsec: 

# 

> 

/*  0>-aw  bp  graph  when  have  just  frozen  or  it  is  time.  */ 
if  (update  ==  GRAPHS_EVER f _X  j|  freeze  ==  1)  (. 
more_old_data  =  1; 
iength_plotted_graph  *  (float)  00; 
over_x1  =  9_x2; 
setcolor(  Syellow  ); 

newval  =  (float)  data imost_recent_dat3] far); 
movabs(&g_x2,  &newval); 

for(  plot_point  =  most_recent_data; 

roore_old_data  &&  length_plotted_graph  <  length_graph; 

plot_point--){ 

plot _point  =  (HAXJtEASURED  ♦  plotjooint)  X  MAX  MEASURED; 
previous  jttint  =  (MAX_HEASURED  +  plotjooint  -  1)  X  MAX_MEASUR£D; 

if  (data (previous _point]  tdi]  =-  999)  { 
more_old_data  -  0; 
goto  end  lp3; 

> 

otd_over_x1  =  over_x1; 
over_x1  -=  (float)  data  [plot  jxiintj  tdi] ; 
length _plotted_graph  +=  (float1'  dataCplot  jjoint)  tdi  1 ; 
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/*  Draw  portion  of  bp  graph.  */ 

g2_oldval  =  (float)  data[previous_point]  [ar]  ; 

/*  For  last  point  that  will  be  plotted  on  graph 

(leftjnost  edge)  compute  the  endpoint  of  the  portion 
of  the  graph  that  is  being  graphed.  */ 
if  (over_x1  <=  g_x1)  { 

length_left  =  old_over_x1  g_x1  ■-  (float)  1.0; 
percent_of_l  ine  =  length_left/  (float)  data  (plot  jxiint]  [di]  ; 
y_difference  =  (float)  (data [previous jxint]  [ar] 

-•  data[plot_point)  [ar)); 
g2_oldval  =  (float)  data(plotjooint) [ar] 

+  percent_of_l ine  *  y_di fference; 
over_x1  =  g_x1  +  (float)I.O; 


lnabs(&over_x1 ,  &g2_oldval); 


end_lp3: 


> 

> 

if  (freeze  ==  1)  frozen  =  1; 

> 


void  update_process< i nt  pps.int  cuff, int  venous, int  core, int  skin) 

( 

int  color; 

float  cursor_x  =  (float)  165.0,  cursor_y  =  (float)  245.0; 
double  angle; 

float  center_x  =  (float)  170.0,  center_y  =  (float)  182.0; 

float  smal l_radius  =  (float)  4.0; 

float  very_smal l_radius  =  (float)  2.0; 

int  norma l_widtfi  =  1; 

int  odd_nLnber_line_width  =3; 

float  length_line  =  (float)  20.0; 

float  move_x,  move_y,  temporary; 

float  twice_x,  twice_y; 

float  cos_angle,  sin_angle; 

float  roller_radius  =  (float)  7.0; 

int  i; 

double  angle_radians; 

static  double  current_angle  =  360.0; 

int  angle_int; 

double  pps_constant  =  (float)  0.20,  loop_tiroe  =  (float)  (  10.0  /  INT_FREQ  ); 
float  pusp_radius  =  (float)  28.0; 

int  hatch_index  =  1; 
int  path  =  0; 

float  height  =  (float)  40.0; 

float  cuff_x  =  (float)  409.0,  cuff_y  =  (float)  261.0; 
float  venous_x  =  (float)  460.0,  venous_y  =  (float)  135.0; 
float  core_x  =  (float)  700.0,  core_y  =  (float)  135.0; 
float  skin_x  =  (float)  800.0,  skin_y  =  (float)  251.0; 
float  plus  =  (Float)  5.0; 
float  cuf f_yp  =  cuff_y  +  plus; 
float  venous_yp  =  venous_y  +  plus; 
float  core_yp  =  core_y  +  plus; 
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float  skin_yp  -  skin_y  +  plus; 

float  cuff_x3  =  (float)  479.0,  cuff_y3  =  (float)  300.0; 
float  venous_x3  =  (float)  530.0,  venous_y3  =  (float)  174.0; 
float  core_x3  =  (float)  753.0,  core_y3  =  (float)  174.0; 
float  skin_x3  =  (float)  843.0,  skin_y3  =  (float)  292.0; 
char  string  [31; 
char  just_stringC4] ; 
char  te<np_stringt33 ; 

int  write_cuff,  write_venous,  write_core,  write_skin; 

static  int  old_cuff_dig  =  -99; 

static  int  old_venous_dig  =  -99; 

static  int  old_core_dig  =  -99; 

static  int  old_skin_dig  =  -99; 

int  cuff_lirte_width; 

float  top_start_cuff_x  =  (float)  178.0; 

float  top_start_cuff_y  *  (float)  295.0; 

float  bottom_start_cuff_x  =  (float)  175.0; 

float  bottom_start_cuff_y  =  (float)  91.0; 

float  top_cuff_x,  top_cuff_y,  botto*x_cuf f_x,  bottom_cuff_y; 

float  top_cuff_length_x  =  (float)  200.0; 

float  top_cuff_length_y  =  (float)  -24.0; 

float  bottom_cuff_length_x  =  (float)  200.0; 

float  bottom_cuff_length_y  =  (float)  -19.0; 

float  bottom_line[9)  [2]; 

float  top_line[9]  [21; 

int  rxin_lines,  j,  x  =  0,  y  =  1; 

static  int  oldnuslines  =  0; 

float  mercury_height; 

fioat  skin_x1  =  (•‘loat)  792.0,  skin_y1; 

float  skin_^2  =  (float)  796.0,  skin_y2  =  (float)  267.0; 

float  core_x1  =  (float)  692.0,  core_y1; 

float  core_x2  =  (float)  696.0,  core_y2  =  (float)  132.0; 

float  therm_width  =  (float)  5.0; 

float  back_a_bit  =  (float)  >4.0,  doun_a_bit  =  (float)  -4.0,- 

float  no_change  =  (float)  0.0; 

float  max_mercury  =  (float)  50.0; 

float  max_cory1  =  (float)  185.0; 

float  max_skny1  =  (float)  320.0; 

static  int  old_skin  =  -99,  old_core  =  >99; 

int  draw_skin,  drawcore; 

i  •*  f Idsize; 

double  needle_angle; 
float  length_needle  =  (float)  11.0; 
float  cuff_center_x  =  (float)  386.0; 
float  cuff_center_y  =  (float)  312.0; 
float  venous_center_x  =  (float)  437.0; 
float  venous_center_y  =  (float)  167.0; 
float  gage_radius  =  (float)  11.0; 
static  int  old_cu*f  =  -99; 
static  int  old_venoos  *  -99; 

static  int  old_arw_color  =  0; 
static  int  old_loop_color  *  0; 

if  (proeess_restart)  { 

current_angle  =  360.0; 
old_cuff_dig  =  -99; 
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old_venous_dig  =  -99; 
old_core_dig  «  -99; 
old_skin_dig  *  >99; 
old_nua_ lines  *  0; 
old_skin  *  -99; 
old_core  *  -99; 
old_cuff  *  -99; 
old_veoous  *  -99; 

old_arm_eolor  =  0; 
old_loop_coior  =  0; 
process_restart  »  0; 

> 


/*  Draw  ana  outline.  Maintain  value  of  old  color.  If  new 

color  is  the  same  as  old  color,  do  not  draw  the  arm.  */ 
/*  Determine  new  color.  */ 
if  (  skin  <  20  )  color  *  navy; 
else  if  (  skin  <  30  )  color  *  light_biue; 
else  if  (  skin  <  35  )  color  *  akin_pink; 
else  color  *  rad; 

/*  If  color  has  changed,  draw  new  arm  outline.  */ 
if  (old_arm_color  !*  color)  { 
setcolor(icolor); 
draw_arm  outlineO; 

> 

old_arm_color  *  color; 

/*  Draw  cuff.  */ 

/*  Calculate  width  of  cuff.  */ 
if  (cuff  <*  25)  marlines  *  1; 
else  if  (cuff  <*  50)  nu«_lines  *  2; 
else  if  (cuff  <•  75)  na*_lines  -=  3; 
else  if  (cuf*  100)  m*_  lines  *  4; 
else  if  (cuff  <=  *25)  r***_lines  *  5; 

else  if  (cjff  <*  150)  m«_linns  *  6; 

else  if  (cuff  <*  200)  num_liner  =  7; 

else  if  (cuff  «  250)  nua_hnes  *  8; 

else  nun_linef-  =  9; 

if  (otc_mjn_  tines  **  r*ss_lines)  goto  end_draw_cuff ; 

top  line C0)t1)  =  (float)  U.0; 
topjinetmi)  =  (float)  3,0; 
tcp_lineC2)C1]  *  (float)  6.0; 
top_l ine(3) [1]  =  (float)  9.0; 
top_l  ine(4H13  =  (float)  12.0; 
top_line[5j [1]  *  (float)  15.0; 
top_line£6]  (1)  =  (float)  17.0; 
top  tine£7H1]  1  (float)  20.0; 
topJtire[8] tl)  *  (float)  23.0; 

for  ( i-0; i<=8; 1++)  { 

j  *  0; 

top_line[i] (j)  *  (float)I.O; 
bottora_l inelij (j)  *  (float)I.O; 

;  -  1; 

bottom  linef')[j]  =  top  lineliHj); 

> 
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cuff_line_width  =  1; 
setlnwidtii(  Acuff_t ine_width  ); 

if  (rxjii_t>nes  <  old_num_lines)  { 
setcolorC  Awhite  ); 

for  ( j«old_num_l ines;  j>«num_lines+1;  j--)  { 
i*j-1; 

top_coff_x  *  top_start_cuff_x  +  top_l ine[i] [x] ; 
top_cuff_y  *  top_start_cuff_y  +  top_lineti] Cy3 ; 
movabs(  4top_cuff_x,  4top_cuff_y  ); 
lnrel(  4top_cuff_fength_x,  &top_cuff_length_y  ); 
botto«_euff_x  =  bottoai_srart_cuff_x  •  bottom_lineti]  Cx]  ; 
botto«_cuff_y  =  botto«_start_cuff_y  •-  ootto«!_l ineti]  ty] ; 
novate (  Abottom_cuff_x,  Abottom_cuff_y  ); 

InreKAbottom  cutfj ength_x,Abottom  cuff  length  y); 

> 

) 

'f  (num_lines  >  c ld_num_lines)  < 
setcolo>-(  (blue  ); 

for  (j=old_num_linesel;  j<=nun_l ines;  j++)  { 

i=j-lf 

top_cuff_x  *  top_start_cuf f _ x  ♦  tcv_line(i]  1x3; 
top_cuff_y  *  top_i?art_cuff_y  +  top_line£i]  tv); 
novate  (  Atopcuf  f_x,  4tup_cuf f_y  ); 
tnrel(  Atop^uf  f_Tength_x,  Atop_cu*f_length_y  ); 
bottom_cuff_x  =  botto»_start_cuff_x  -  bottom_line[i] [x]; 
boxtoacuffy  *  bottom_start_cuff_y  •  bottoml ine[i] [y] ; 
novate (  Abottom_cuff_x,  lbotton_cuff_y  ); 

InreKAbottoai  cuf f_length_x,Abettoat_cuf f  length_y); 

> 

) 

old_rxjB_linei  *  nu»_lines; 
satlnwidthf  4normal_width  ); 
end_draw_cuf f : 

/*  Drew  mercury  in  thermometers.  */ 

/*  Calculate  mercury  height  for  skin  teap.  If  hasn't  changed, 
set  so  that  won't  draw  new  mercury.  */ 

■err.ury.heieht  *  ((float)  akin  -  (float)  30.0)  /  (float)0.20; 
if  («wsrcury_height  <  .float)  0  0) 

mercury_height  1  (float)  0.0; 
if  0»e-cury_height  >  naxjskrcury) 

(*ercury_height  *  max_mercury; 


draw_skin  *  1; 

if  ((int)mercur/_height  **  eio_skin)  draw_skin  =  0; 

/*  if  new  mercury  is  needed  for  skir.  te<*p,  dratc  the  mercury, 

»f  new  mercury  height  is  smaller  than  old  height,  first 
draws  white  bar  to  erase  oid  mercury.  Then,  regardless, 
draws  the  new  mercury,  */ 
if  (draw_skin  •«  1)  { 

if  {(int)mercury_height  <  old_3kin)  { 
setcolorl  Awhite  ); 

skin_y1  *  skin_y2  +  max_B«rcjry  ♦  (float)  3.0;' 
bar(  Askin_x1,  fskin  yi,  Askin  x2,  Askin_y2  ); 

) 

setcolor(  4light_s.  sy  ); 
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skin_y1  =  skin_y2  +  mercury_height  +  (float)  3.0; 
bar(  (skin_x1,  (skin_y1,  4sk:n_x2,  (skin_y2  ); 

) 

old_skin  *  (int)  mercuryjieight; 

/*  Calculate  mercury  height  for  core  temp.,  If  hasn't  cnanged, 
set  so  that  won't  draw  new  mercury.  •/ 
i»ercury_height  *  ((float)  core  ■  (float)  30.0)  /  (float)0.20; 
if  (mercuryjieight  <  (float)  0.0) 

mercuryjieight  =  (float)  0.0; 
if  (mercuryjieight  >  maxjaercury) 

a»rcury_height  *  maxjnercury; 


draw_core  =  1; 

if  ((int)mercuryjieight  «  oldjtore)  draw_core  =  0;' 

/*  If  new  aiercury  is  needed  for  core  temp,  draws  the  mercury. 

If  new  mercury  height  is  smaller  than  old  height,  first 
draws  white  bar  to  erase  old  mercury.  Then,  regardless, 
draws  the  new  mercury.  */ 
if  (draw_core  sr  1  | |  old_core  **  -99)  { 

if  ((int)a*rcury_height  <  otdj'ore)  { 
setcolor(  (white  ); 

core_y1  *  core_y2  ♦  maxjnercury  +  (float)  3.0; 
bar(  (core  xl,  (core  yl,  (core  x2,  (core  y2  ); 

> 

setcolor(  (light_gray  ); 

core_y1  *  core_y2  ♦  s»rcury_hei jht  +  (float)  3.0; 
b#r<  (core  xl,  (core  yl,  (core  x2,  (core  y2  ); 

> 

old_core  *  (int)  mercuryjieight; 

/*  Draw  needles  on  cuff  and  venous  pressure  guages.  */ 

/*  If  the  cuff  pressure  has  changed,  erase  old  needle, 

calculate  new  needle  position,  and  draw  new  needle.  */ 
if  (cuff  !*  old_cuff)( 

/*  Erase  old  needle  by  drawing  blue  circle.  */ 
movabs(  (cuff_center_x,  (cuff_center_y  ); 
setcolor(  (bright_btue  ); 
fcir(  (gage_radius  ); 

/*  Draw  pin  for  needle.  V 
setcolor(  (black  ); 
fcir(  (very_smal l_radius  ); 

/*  Calculate  end  point  of  new  needle.  */ 
needle_angle  *  -140.0  •  (docble)  cuff  /  300.0  +  160.0; 
angle_int  *  (int)  needle_angle; 
angle_radians  *  (double)  angle_int  *  PI  /  180.0; 

cos_angle  *  (float)  cos(  angle_radians  ); 
sin_angle  «  (float)  s^rU  l.o  -  (docble)(cos_ar»gle*cos_angle)  ); 
movex  *  cos_angle  *  ngth_needle; 
mo'  e_y  *  sin_angie  *  length_needle; 

/*  Draw  new  needle.  */ 
movey  **  aspect; 

InreK  (move  x,  (move  y  ); 

) 

old_cuff  *  cuff; 

/*  If  the  venous  pressure  has  changed,  erase  old  needle, 

calculate  new  needle  position,  and  draw  new  needle.-  */ 
if  (  venous  old_venous  X 
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/*  Erase  old  needle  by  drawing  blue  circle.-  */ 
movabs(  (venous_center_x,  (venous_center_y  ); 
setcolor(  (bright_pink  ); 
fcir(  (gage_radius  ); 

/*  Draw  pin  for  needle.  */ 

setcolor(  (black  ); 

fci r(  (very_s*wll_radius  ); 

/*  Calculate  end  point  of  new  needle.-  */ 

needle_angle  *  -140.0  *  (double)  venous  /  300.0  +  160.0; 

angle_int  =  (int)  needle_angle; 

angle_radians  *  (double)  angle_int  *  PI  /  180,0; 

cosangle  •*  (float)  cos(  angle_radians  ); 
s’n_angle  *  (float)  sqrt(  1.0  -  (double)(cos_sngle*cos_angle)  ); 
«ove_x  *  ees_angle  *  length_needle; 

«wve_y  *  sin_angle  *  length_needle; 

/*  Draw  new  needle.  */ 
ieove_y  *=  aspect; 
lnrel(  (move  x,  SJnove_y  ); 

> 

old  venous  =  venous; 

/*  Fill  in  loop  outline.  Maintain  value  of  old  color.  If 

new  color  is  the  same  as  old  color,  do  not  refill  the 
loop.  */ 

/*  Deteraiine  new  color.  */ 

if  (  core  <  20  )  color  *  navy; 

else  if  (  core  <  30  )  color  =  light_blue; 

else  if  (  core  <  35  )  color  *  skin_pink; 

else  color  *  red; 

/*  If  color  has  changed,  refill  loop.  V 
if  (color  1*  old_loop_color)  { 

iaovab6(  (cursorx,  (cursor_y  ); 
f lood(icolor); 

) 

old_loop_color  ■  color; 

/*  Draw  punp  head  every  time  an  icu  graph  is  updated.;  */ 
if  (update  **  GRAPHS_EVERY_X)  { 

current_angle  •«  (ppe_constant  *  (double)  pps  *  loop_time); 

novabs(  (center_x,  (center_y  ); 

setcolor(  (white  ); 

fcir(  (puap_radius  ); 

setcolor(  (black  ); 

fcir(  (saw l l_radius  ); 

current_angle  *  (double)  ((int)  cur  renting  l  e  X  90); 
angle  *  current_angle  *  PI  /  180.0; 
set  l  nw  i  dt  h  ( (odd_nt«ber_  l  i  ne_w  i  dt  h )  ; 

cos_angle  *  (float)  cos(  angle  ); 
sin_angle  *  (float)  sqrt(  1.0  --  (double)(cos_angle*cos_angle)  ); 
wove_x  »  cos_angle  *  length_line; 
move  y  *  sin_angle  *  length_line; 

/*  Move  cursor  to  end  of  ana  in  first  quadrant.,  */ 
temporary  *  iwove  y  *  aspect; 
movreK  baove  x,  (teaporary  ); 

/*  Draw  anas  and  rollers  in  first  and  third  quadrant.  */ 

fcir(  (rolter_radius  ); 

twice_x  *  (float)-2.0  *  »ove_x; 

twice_y  *  (float)-2.0  *  »ove_y;' 

temporary  *  aspect  *  twice_y; 

lnret(  (twice_x,  (teaporary); 

fcir(  (roller_radius  ); 
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«ovsbs(  (center_x,  (center_y  ); 

/*  Move  cursor  to  end  of  arm  in  second  quadrant.:  */ 

temporary  *  (float)-I.O  *  move_y; 

novey  *  move_x; 

move_x  *  temporary; 

tetporary  *  «tove_y  *  aspect; 

movreK  ta»ve_x  ,  (temporary  ); 

/*  Draw  anas  and  rollers  in  second  and  fourth  quadrant.  */ 

fci r(  (rol ler_radius  ); 

twice_x  =  (float/-2.0  *  »ove_x; 

twice_y  =  (float>*2.0  *  move_y; 

temporary  »  aspect  *  twicey; 

InreK  (twice_x,  (temporary); 
fcir<  (roller_radius  ); 

> 

setlnwidthl  (normal_width  ); 

/*  Write  in  numbers  that  have  changed.  For  each  number  that 
is  written,  first  draw  a  bar  to  erase  the  old  nurber, 
then  convert  the  integer  value  to  a  string  and  write  the 
string.  */ 

write_cuff  *  write_venous  =  write_core  =  write_skin  =  1; 

if  (cuff  **  old_cu?f_dig)  write_cuff  *  0; 

if  (venous  «  old_venous_dig)  write_venous  *  0; 

if  (core  ■■  old_core_dig)  write_core  =  0; 

if  (skin  *=  old_skin_dig)  writeskin  *  0; 

old_cuff_dig  *  cuff; 

old_venous_dig  *  venous; 

old_core_dig  =  core; 

old_skin_dig  *  skin; 

setcolor(  (white  ); 
sethatchstyle(fchatcn_index); 
setstext((height,  (aspect,  (path); 
if  (write_cuff)  { 

bar(  (cuff_x,  (cuf f_yp,  (cuff_x3,  (euff_y3  ); 
setstclr((blue,  (blue); 
iaovtcurabs((cuff_x,  (cuff  y); 
itoa(  cuff,  string,  10  >; 
fldsize  =  3; 

if  (cuff  <  10)  fldsize  =  2; 

stpjust(  jvist_string,  string.  1  fldsize,  JUST_RIGHT); 
stext(  just  string  ); 

> 

i'1  (write_venous)  f 

bar(  4venous_x,  .'venous_yp,  4venous_x3,  &veoous_y3  ); 
8etstclr((brigh'._Dink,  (bright _pink), 
aovtcurabs(2vt.no»is_x,  (venous_y); 
itoa(  venous,  string,  10  ); 
fldsize  =  3; 

if  (venous  <  10)  flds'ze  =  2; 

stpjust(  ju8t_string,  string,  1  1 ,  fldsize,  JUST_RIGHT); 
stext(  just  string  ); 

> 

if  (write_core)  ( 

bar(  (core_x,  (core_yp,  (core_x3,  (core_y3  ); 
setstclr((red,  (red); 

»ovtcurabs((core_x,  (core_y); 
itoa(  core,  string,  10  ); 
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fldsize  *  2; 

if  (core  <  10)  fldsize  *  1; 

stpjust(  t*sp_*tring,  string,  1  1 ,  fldsize,  JUST_RIGHT); 
stextc  tewp_string  ); 

> 

if  (write_skin)  { 

bar(  Sskin_x,  lskin_yp,  iskin_x3,  &skin_y3  ); 
setstclr(fcred,  tred); 

«m/»>urabs(&skin_x,  lskin_y); 
itoa(  skin,  string,  10  ); 
fldsize  *  2; 

if  (skin  <  10)  fldsize  =  1; 

8tp,iust(  temp_string,  string,  1  ',  fldsize,  JUST_RIGHT); 
stext(  te«np_strin8  ); 

} 

delteurO; 


void  caH_ana_outline() 

( 

float  ana_*tart_x  =  (float)  125.0; 
float  an*_start_y  =  (float)  300.0; 
float  upper_bicep_x  =  (float)  310.0; 
float  upper_bicep_y  *  (float)  -40.0; 
float  upper_forean*_x  *  (float)  310.0; 
float  ipper_foreana_y  «  (float)  >3.0; 
float  igjper_pal«_x  «  (float)  70.0; 
float  upper _palm_y  *  (float)  30.0; 

float  upper_thiwb_x  *  (float)  80.0; 
float  upper_thufflb_y  *  (float)  10.0; 
float  thw*D_r*dius  *  (float)  9.0; 
float  thiwb^anglel  *  (float)  270.0; 
floa  thmfe_angle2  =  (float)  90.0; 
float  over_thi*b  =  (float)  0.0; 
float  down_thiMb  *  (float)  >12.0; 
rloat  who_cares,  end_arc_x,  end_arc_y; 
float  lower_thunb_x  *  (float)  >40.0; 
float  lower_thi*fc_y  *  (float)  -20.0; 

float  overlap_x  =  (float)  -25.0,  cverlap_y  =  (float)  -30.0; 

float  botto»_start_y,  ar»_*idth  ■  (float)  200.0; 

float  lower_bicep_x  *  (float)  320.0; 

float  lo«er_bicep_y  *  (float)  -30.0; 

float  lower_forean»_x  «  (float)  310.0; 

ftoat  tower_torean*_y  *  (floet)  40.0; 

floet  lower_pali»_x  *  (float)  100.0; 

float  lower_pal*_y  *  (float)  -20.0; 

float  lower_pinky_x  *  (float)  100.0; 
float  louer_pinky_y  *  (float)  15.0; 

float  over_pinky  *  (float)  1.0,  upjsinky  =  (float)  12.0; 

float  pinky_radius  =  (float)  6.0; 

float  p.  -,ky_angle1  ■  (float)  270.0; 

float  pinky_angle2  =  (float)  90.0; 

float  upper_pinky_x  =  (float)  -90.0; 

ticst  upper_pinky_y  =  (float)  5.0; 

float  lower_ring_x  *  (float)  100.0; 
float  lower_ring_y  =  (float)  10.0; 

float  over_fir>ger  =  (float)  1.0,  up_finger  =  (float)  13.0; 
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float  finger_radius  *  (float)  6.0; 
float  f  inger_angle1  *  (float)  270.0; 
float  finger_angle2  -  (float)  90.0; 
float  tgaper_ring_x  *  (float)  -90.0; 
float  upper_ring_y  «  (float)  5.0; 

float  lower_«iddle_x  ■  (float)  100.0; 
float  lower_*iddle_y  *  (float)  10.0; 
float  upperjiriddle_x  *  (float)  -110.0; 
float  upper_*iddle_y  *  (float)  5.0; 

float  lower_point_x  =  (float)  100.0; 
float  lo«er_point_y  *  (float)  10.0; 
float  igjper_point_x  =  (float)  -110.0; 
float  upper j»int_y  =  (float)  5.0; 


n»vabs(tan*_start_x,  iann_start_y); 
l  nre  l  (iupper  bi  cepx ,  ttgjper_bieep_y); 
InreKtupperforearmx,  tupper_f orearm_y )  ; 
lnrel(tupper_palm_x,  tigjper_palni_y); 

Inrel (tqpper_thi»b_x,  tupper_thm*)_y); 

*ovrel(tover_thu«b,  tdowithuefc); 
arc(tthiwb_radius,  tthuebanglel ,  tthurb_angte2); 
inqarc(  tend_arc_x,  tend_arc_y,  twho_cares,  twho  cares  ); 
wovabs(  tend  arc  x,  tend_arc~y  ); 

InreK  tlower_thu*b_x,  tlower_thu«b_y  ); 
l  nre  l  (  toverlap_x,  toverlapy  ); 

bottom  starx  ,y  ■  ar»_«tart_y  »  ar»_width; 
«ovab6(ian«_atart_x,  4botto«_start~y); 
lnrel(tlower_bicep_x,  tlower_bicep_y>; 

Inrel  (tlouer_f orearm_x,  tlowerforearmy); 
lnrel(4lower_palm_x,  llower_paTm_y>; 

Inrel (tlotier_pinlcy_x,  tlower_pinky_y); 
i»ovreK4over_pinky,  tup  pinky); 
arc(tpinky_radius,  tpinky_angle1,  tpinky_angle2); 
inqarc(  tnho_cares,  twho_cares,  tend_arc_x,  tend  arc  y  ); 
movabs(  tend_arc_r  t*nd_arc_y  ); 

InreK  tcpper_pinky_x,  tupper_pinky_y  ); 

lnrel(  tlower_rir>g_x,  tlower_ring  y  ); 
laovreK  toverf inger,  tup_ finger  ); 
arc(tf ing«r_radiu»,  tf inger_angle1 ,  tf inger_angle2>; 
inqarc(  Wio_carea,  t«ho_cares,  tend_arc_xI~iend  arc  y  ); 
*ovabs(  tend_arc_x,  tend  arc_y  ); 

InreK  tupper„rin9_x,  tupper”ring_y  ); 

InreK  Uowerj»iddle_x,  tlowerj*iddle_y); 

*ovrel(  toverf inger,  ttg>_f  inger  ); 
arc(tf i nger_radi us,  tf inger_angle1 ,  tf  inge.-_angle2>; 
inqarc(  t«ho_cares,  tnho_cares,  tend_arc_x,  tend  arc_y  ); 
novabsC  tend_arc_x,  tend_arc_y  ); 

InreK  ti*5perj*iddle_x,  tupper_middi e_y  ); 

InreK  tlower_point_x,  tlower _point_y); 

i«ovreK  tover_f inger,  tup_f inger  ); 

arc( tf i nger_radi us ,  tf inger_angle1 ,  tf inger  angle2); 

inqarc(  twho_cares,  twho_cares,  tend_arc  x,”tend  arc  y  ); 
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movabs(  &end_arc_x,  tend_src_y  ); 

InreK  £<jpper_pcint_x,  tupper_point_y  >; 


> 

void  draw_loop  outlineO 

{ 

float  start_loop_x  a  (float)  164-0; 
float  start_loop y  *  (float)  252.0; 
float  tcp_outer_ieogth  *  (float)  600. G; 
float  tco_outer_Y  *  (float)  0.0; 
float  no_change  »  (float)  0.0,  who_cares; 
float  outer_down_center_y  *  (float)  -70.0;' 
float,  outer_up_center_y  =  (float)  70.0; 
f.oet  outer_radius  *  (float)  45.0; 
float  outer_afigle1  *  (float)  270.0; 
float  outer_ar>gie2  *  (float)  90.0; 
float  end_arc_x,  end  arc  y; 
float  bottati_outer_  length  *  (float)  -600.0; 
float  bottow_outer_y  =  (float)  0.0; 

float  inner_loopj>ver  *  (float)  6.0; 
float  loopjtidth  *  (float)  -25.0; 
float  top_inr»r_ length  *  (float)  590. 0;' 
float  top_irmer_y  *  (float)  0.0; 
float  i nner_down_center_y  =  (float)  -45.0; 
float  imer_up_center_y  *  (float)  45.0; 
float  inrutr_radius  *  (float)  30.0; 
float  botta*_inner_length  =  (float)  -590.0; 
float  botto«_inner_y  *  (float)  0.0; 
float  down_a_bit  *  (float)  -55.0; 


movebs(  4at*rt_loop_x,  t8tart_loop_y  ); 

InreK  *ftop_outer__length,  4top_outer_y  ); 
wovreK  (no_change,  &outer_down_center_y  ); 
arc(  touterradius,  iouter_angle1 ,  toute-_»ngle2  ); 
inqarci,  tend_»rc_x,  &enrf_arc_y,  taho_cares,  &who_cares  ); 
i«ovabs(  &end_arc_x,  Jend_arc_y  ); 

InreK  lbotton_outer_length,  tbottoni_ooter_y  ); 

movreK  lno_change,  &outer_up_center_y  >; 

arc(  &outer_radius,  toyter_engle2,  fcouteP_angle1  ); 

wovab a(  tatart_loop_x,  tstart_loop_y  ); 
wovreK  tinr»r_loop_ovsr,  iloop_width  ); 

InreK  ttop_iimer_length,  ttop_irmer_y  ); 
movreK  tno_change,  4inoer_down_center_y  ); 
arc(  6inner_radius,  &octer_angle1,  touter_angle2  ); 
inqarc(  tend_arc_x,  iend_arc_y,  twho_cares,  &who_cares  ); 
movabe(  Send_are_x,  t«nd_arc_y  ); 

InreK  Sbotto«_inner_length,  &botto«_inner_y  ); 

movreK  tno_change,  4inrter_up_csnter_y  ); 

arc(  iinner_radiu8,  touter_angle2,  &outer_angle1  ); 


■/aid  update_header(  char  ‘header  ) 
r 

int  path  *  0; 

float  height  *  (float)  40.0; 
int  hbtch_index  »  1; 
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float  x  *  (float)  0.0,  y  *  (float)  950.0; 
int  count  =  0; 

float  xl  *  (float)  0.0,  yl  *  (float)  1000.0; 
float  x2  *  (float)  1000.0,  y2  *  (float)  955.0; 

setcolor(tbright_blue); 
bar(&x1,  tyl,  &x2,  4y2); 

while  (  header  (count)  !*  1  \0  •  )  ■►♦count; 

x  *  (float)475.0  -  (float)  0.5  *  (float)count  *  (float)20.0; 

sethatchstyle(Shatch_index); 

setstclr(8white,  (white); 

setstext(&height,  (aspect,  (path); 

movt curate (&x,  (',); 

stext(  header  ); 

deltcurO; 

new  header  *  0; 

) 

void  help  system(void) 

{ 

int  curs_pos  *  7; 

float  xl  *  (float)  0.0,  yl  *  (float)  0.0; 
float  x2  *  (float)  1000.0,  y2  *  (float)  1000.0; 
float  inxl  «  (float)  20.0,  inyl  =  (float)  78.0; 
float  inx2  *  (float)  980.0,  iny2  *  (float)  970.0; 
float  titlejieight  *  (float)  120.0; 
float  title_x  *  (float)  6C.0,  title_y  *  (float)  800.0; 
static  char  titlejaesgC)  *  (  "  Help  System  "  >; 
float  fiaKjnes8_height  »  (float)  40.0; 

float  funckeys_x  ■  (float)  55.0,  funckeys_v  *  (float)  720.0; 

static  char  f unckeysjassg []  *  (  "Press  function  keys  for  option  descriptions."  >; 

float  esc_x  *  (floaO  190.0,  esc_y  «  (float)  650.0; 

static  char  escjaasgt)  *  {  "Press  ESC  to  exit  help  system."  }; 

float  box_x1  *  Tfloat)  100.0,  box_y1  «  (float)  125.0; 

float  box_x2  *  (float)  900.0,  box_y2  *  (float)  600.0; 

float  Bessage_hei ght  *  (float)  35.0; 

float  messageji  *  (float)  160.0,  message_y1  1  (float)  530.0; 

float  *essage_y2  *  (float)  485.0; 

float  message_y3  *  (float)  440.0; 

float  *essage_y4  *  (float)  395.0; 

float  mesaage_y5  *  (float)  350.0; 

float  message_y6  *  (float)  305.0; 

float  siessage_y7  *  (float)  260.0; 

float  oessagey8  *  (float)  215.0; 

float  message_y9  *  (float)  170.0; 

float  message_y10  *  (float)  125.0; 

static  char  freeze joasgl [)  *  {  "Toggles  between  freezing  and  unfreezing"  }; 
static  char  f reeze_*asg2 C3  *  (  "the  icu  graphs.  Control  of  blood"  }; 
static  char  freezejassg3(]  *  {  "pressure  is  not  affected."  >; 

static  char  range_mssg1C]  *  (  "Controls  the  y-axis  of  the  arterial"  ); 
static  char  range_mssg2 C)  *  {  "graph.  Toggles  between  a  range  of"  }; 
static  char  range  _mssg3 []  *  {  "0  -  300  rm#ig  and  a  range  of  just"  ); 
static  char  range _mssg4[]  *  {  "below  diastolic  to  just  above  systolic."  >; 

static  char  decreasejwsgl  []  *  (  "Decreases  the  speed  that  data  points"  ); 
static  char  decrease_mssg2[]  *  (  "move  across  the  graph.  As  the  data"  ); 
static  char  decrease_mssg3[]  =  {  "points  move  more  slowly,  more  of  the"  }; 
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static  char  decreasejassg4t] 


{  "signal.  c»n  be  seen  at  one  time."  }; 


static  char 
static  char 
static  char 
static  char 
static  char 
static  char 


increasejassgl n 
increase_*ssg2  Cl 
increasejwsgi  [] 
increase_Msg4  n 
increasejaasgS  [] 
increasejassg6[] 


«  {  "Increases  the  speed  that  data  points"  }; 

«  {  "move  across  the  graph.  As  the  data"  >; 

*  {  "points  «»ve  more  quickly,  less  of  the"  }; 

*  C  "signal  is  visible  at  one  time..  The"  >; 

*  <  "signal  becomes  spread  out  across  the"  }; 

*  {  "screen."  ); 


static  cha<- 
static  char 
static  char 
static  char 
static  char 
static  char 
static  char 
static  char 
static  char 


settingsjaasgl n 
set  tings  jaesg2[] 
set  tings  jassg3[] 
settings  jassgA  [] 
settingsjassg5  [] 
set  tings  jassgbU 

settingsjassg7n 

settings_Msg8[] 

settingsj»esg9[] 


*  <  "Inc  *es  current  settings  of  the  header,"  >; 
1  (  “heart  rate,  systolic,  and  diastolic  "  >; 

*  f  "values.  Gives  the  option  to  restart  the"  >; 

=  {  "simulation  wi th  new  values.  Uhile  the"  >; 

*  {  “current  settings  are  displayed,  the"  }; 

=  <  "simulation  screen  disappears  from  the"  ); 

*  {  "screen.  However,  computer- control  of"  >; 

«  <  "the  arterial  pressure  and  measurement"  >; 

*  <  "of  data  continue."  >;' 


static  char  display jassgl  [3 
static  char  di  splay jassg2[] 
static  char  displayjatsg3t] 
static  char  displayjaasgtu 
static  char  displayjassg5[] 
static  char  displayjwsg6[] 


<  "Toggles  between  signals  displayed  on"  }; 
{  "the  upper  icu  graph."  >; 

l  “  ECG  --  green  "  >; 

<  "  Cuff  Pressure  blue"  >; 

{  "  Venous  Pressure  pink"  >; 

{  “  Koto-  Speed  >•  orange"  }; 


static  char  help  mssgt]  «  {  "Explanation  of  eight  function  keys."  >; 

static  char  quitjaasglH  «  {  "Stopa  the  simulation  and  exits  the"  }; 
static  char  qui t_mssg2 []  *  C  "program."  >; 


int  pe.ii  *  0; 
int  ch; 


delboxO; 

setscreen((page2); 

seteolorf  (blue  ); 

bar(&x1,  (yl ,  (x2,  (y2>; 

setcolorf  (white  ); 

barcsinxl,  (irryl,  (inx2,  (iny2); 

setstextc  (titlejieight,  (aspect,  (path  ); 

setstclrf  (blue,  (blue  ); 

movtcurabsf  (title_x,  (title  y  ); 

stext(  title_masg  ); 

8etstext(  (func_«ssg_height,  (aspect,  (path  ); 

movtcurabsC  (funckeys_x,  (funckeys_y  ); 

stext(  funckeys_ms3g  T; 

movtcurabsf  (esc_x,  (esc_y  ); 

stextc  esc_masg  ); 

set_up_opt i ons_bar ( ) ; 

update_opt i ons( curs _pos ) ; 

setcolor<  (blue  );  "* 

bar(  (box_x1,  (box_y1,  (box_x2,  (box_y2  ); 
setstclrf  (white,  (white  ); 
display!  (page2  ); 

keypress:  while  (  lkbhit()  ); 

ch  *  getchO; 

if  (ch  ==  ’O')  ch  *  getchO; 
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if  (ch  «  27)  { 
delbox( ); 

setscreeo(  &page1  ); 
display*  ipagel  ); 
return; 

} 

else 

if  (eh  >*  59  At  ch  <=  66)  curs_pos  =  ch  -  58; 

else 

if  (ch  >*  49  &&  ch  <=  56)  curs_pos  *  ch  -  48; 
else 

•  f  (ch  72  1 1  ch  ■*  75)  curs_pos--; 
else 

if  (ch  ==  77  j  j  ch  ==  80)  cursjsos++; 
else 

if  <t‘  «  13); 
else  sotc  keypress; 

if  (cui's_po8  »«  9)  cur»_pos  ■  1; 
else 

if  (curs_pcs  <*  0)  cu^s _pos  *  8; 

tpd»te_opt  i  ons(  curs_pos)  ; 
setcolor(  5b l ue  }; 

bar(  tbox_x1 ,  iboxyl.  tbo*_x2,  tbox_y2  ); 
setstext(  imessagejieiaht,  taspect,  .'path  ); 
movtcurabs*  iwessage  x,  imessage_y1  ); 

switch(curs  oos) 

( 

ca*>»  1: 

stextv  freesejaesgl  ); 

*c/tcuraos(  i**ssb<j*_x ,  Lnesssge_y2  ); 

stextf  freeze_BKsg2  ); 

novt  curat*,  t  taiessagex,  fcnessage_y3  ); 

3text(  freexejassg3  ); 

break; 

esse  ?: 

stextf  range  jwsgl  ); 

*ovtcurabs(  J*css*se_x,  tmessage  y2  ); 

stextf  rang#jnssg2  )J 

tMvrcurabsf  Aeessaget,  iasessage  yS  ); 

stsxt(  rangt_iwsg3  ); 

aovtcurabsf  feaetsagex,  t**ssage_y4  ); 

stextv  range.jwsg4  ); 

break; 

case  3: 

stext(  decreascjnssgl  ); 

«oytcurabs(  <«essage_x,  fcnessaye..y2  ); 

stextf  decrease_mssg2  }; 

mcvtcurebsf  femsssagr^x  5tnessage_y3  ;; 

stext(  dpcre£.8e_«sg3  ); 

movtcurabsf  iisessage_x,  Axes sage  y4  ); 

stextf  decreestjassg*.  ); 

break; 

case  4; 

s£ext(  increase  jwsgl  ); 
rwvtcuraftst  Anessasex  Ant3.<-bje_y2  ); 
ster.tv  •'.ncrea?e_ms';g2 
(S>vtcuru»'  4-iessag3_x,  fcmessd3*_c3  ); 
stextf  incrr»s*_msig3  ); 


f 


s: 
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movtcurabsf  imessage_x,  birssage_y4  ); 

stextf  increase_inssg4  ); 

movtcurabsf  *a»tssage_x,  imess^3e_/5  ); 

stextf  increasejnssgS  ); 

movtcurabsf  traessage_x,  fanessage_y6  ); 

stextf  increase_mssg6  ); 

break; 

case  5: 

stext{  settingsjsssgl  ); 

M6vtcurab6(  lmessage_x,  &message_y2  ); 
stextf  sett-ngs_mssg2  ); 
movtcurabsf  tnessage_x,  in»ssage_y3  ); 
stextf  settings_mssg3  >; 
movtcurabsf  bne sseg2_x,  £<nessage_y4  ); 
stext{  settingsjwsgi  ); 
movtcurabsf  b»essage_x,  ioief'fage_y5  ); 
atext(  settingsj*sg5  ); 
movtcurabsf  tmess«>3e_x,  Swessage_y6  ); 
stextf  settingsjassjxS  ); 
movtcurabsf  faaessege^x,  &message_y7  >; 
stextf  settings_*eeg7  ); 
movtcurabsf  baessagex,  bnessage_y8  ); 
stextf  set tings _mssg8  ); 
movtcurabsf  baessagex,  (message/?  ); 
stextf  settings jnasg9  ); 
break;' 

case  6: 

stextf  displayjsasgl  ); 

movtcurabsf  bnessage_x,  &message_y2  ); 

stextf  dispiay_mssg2  ); 

setstclrf  (bright_gre*f.,  (bright_green  ); 

movtcurabsf  baes*age_x,  baes*age_y4  ); 

j*extf  di splay _mesg3  ); 

setstclrf  lbright_blue,  4bright_blue  ); 

movtcuratef  baessagex,  baessage_y5  ); 

stextf  di splay jr»sc4  ); 

setstclrf  tb'ightjsink,  (bright_pink  ); 

acvtcurabaf  baessage_x,  bnessage_y6  ); 

stextf  displayjnssgS  ); 

setstclrf  (bright_orange,  (or ight_o range  }; 

movtcurabsf  bnessage_x,  baessage_y7  ); 

stextf  aisplay_ns8g6  ); 

setstclrf  Mite ,  (white  ); 

break; 

esse  7; 

stextf  !'  ipjaasg  ); 
break; 

cese  8: 

stextf  i^jitjkssgl  >; 

Movtcurabsf  fcaessage_x,  bnessage_y2  );' 

stextf  quitjaasgc  ); 

break; 


deltcurf ); 
goto  keypress; 


void  update_optiors(eursj»s> 

{ 

*loet  yl  *  ffloat)  1.0,  y2  *  ffloat)  47.0; 
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static  float  xl [91  *  {  (float)  1.0,  (float)  83.0, 
(float)  224.0, 

(float)  359.0,  (float)  488.0,  (float)  601.0, 
(float)  774.0,  (float)  840.0  ,  (float)  997.0  >; 
int  curs_pos _plus; 

seteotor(  ibrightjslue  ); 
curs  _pos_plus  =  curs_pos; 
curs_Doi>--; 

rbox(&x1 [curs_pos] ,  tyl,  txl  [curs _pos_p'us],  &y2); 


void  gms  logo( ) 

{ 

float  out_x1  =  (float)  0.0,  out_y1  *  (float)  1000.0; 
float  out_x2  =  (float'  1000.0,  out_y2  =  (float)  0.0; 
float  in_x1  =  (float)  20.0,  in_y1  *  (float)  975.0; 
float  in_x2  =  (float)  975.0,  in_y2  *  (float)  25.0; 

int  path  =  0; 

float  textjieight  »  (float)  40.0,  eopyjieight  *  (float)  25.0; 

float  *ng_height  *  (float)  70.0,  g«s_height  *  (float)  300.0; 

float  fl«6_x  *  (float)  200.0,  g*s_y  *  (float)  600.0; 

static  char  pas[]  *  {  “GMS"  }; 

float  eng_x  *  (float)  300.0,  eng  y  *  (float)  575.0; 

static  char  engt)  *  {  “ENGINEERING*  >; 

float  carp  x  *  (float)  300.0,  eorp_y  *  (float)  500.0; 

strf'c  char  corp[]  «  <  "CORPORATION"  }; 

t.  '  addresa_x  *  (float)  360.0,  address_y  *  (float)  400.0; 

sto* . c  char  addreasCI  *  (  "Coluibia,  30"  ); 

float  phonejt  *  (float)  350.0,  phone_y  *  (float)  350.0; 

static  char  phonet]  «  {  "(301)  995-0508"  }; 

float  copy_x  *  (float)  450.0,  copy_y  *  (float)  30.0; 

static  char  copy[]  « 

{“Copyright  (c)  GHS  engi nearing  Corp  1988"}; 

int  hatch_ir»dex  *  1; 
setcolor(t9*a_blue); 

bar(lrout_x1 ,  tout_y1,  8out_x2,  lout_y2); 

setcolor(&light_blue); 

bar(iin_x1,  tin_y1,  4in_x2,  4in_y2); 

sethatchstyle(4hatch_index); 

setstclr(lg«_blue,  t^as  blue); 

setstext(4g«s_height,  lasp-^t,  Ipath); 

.  5vtcurabe(tg*e_x,  tg«6_y); 
st ext  (  ); 

s«tstext(leng.height,  fcaspect,  tpath); 
i»uvtcurabs(lrer>vi_«,  teng_y); 
stext(  eng  ); 

nwvteufeos(tcorp_x,  tcorp_y); 
stext(  corp  ); 

setstext(Sttxt_height,  ^aspect,  tpath); 
movtcurabsdaddressx,  taddress_y); 
stext(  address  ); 
n»vtcu.-abe,(4phone_x,  tphcne_y); 
sM't(  phone  ); 

selstext(tccpy_height,  7-aspect,  tpath)1 
s»vtcurabs(4copy_x,  tcopy_y); 
stext(  copy 
deltcurO; 
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void  draw  graph_labels(int  gl  graph,  int  bp  min,  int  bp  max) 

float  g1_range,  bp_range,  g2_range; 

float  y_Tevel,  top_y_level; 

float  ecg_range; 

int  ecg_incnrt  =  5; 

int  acgmex  =  10,  ecgjnin  *  -10; 

float  pps_range; 

int  ppa_incnwit  =  2000; 

int  ppsjaax  =  6000,  pp6_min  *  0; 

float  press_range; 

int  press_incrum  =  100; 

int  pressjaax  *  300,  pressjnin  =  0; 

float  hatch_length  =  (float)  3.0; 

float  no_change  =  (float)  0.0; 

float  g_x1  =  (float)  112.0; 

int  g1_y1  »  669; 

float  g_x2  *  (float)  651.0; 

int  g1_y2  *  938; 

float  g  x3  *  (float)  695.0; 

int  g2_y1  *  362,  g2_y2  =  631; 

int  error  *  0; 

static  char  label [3]; 

int  path  *  0; 

float  height  *  (float)  20.0; 

int  hatch_index  *  1,  i; 

static  int  old_graph  *  >1; 

static  int  old_bp_»in  *  -99,  old_bp_«ax  =  -99; 

float  lbl_x1  *  (float)  700.0; 

float  Iblyl  «  (float)  655.0; 

float  lbl_x2  *  (float)  765.0; 

float  lbl_y2  *  (float)  690.0; 

•tatic  char  press  lbl  □  ■  {  "ssrflg"  ); 
static  char  pps_lbin  »  (  "rpar  ); 
static  cha-  ecglblU  *  <  “s N"  ); 

if  (drw_grph_restart)  { 
ola_graph  «  >1; 
old_bpjsin  ■  -99; 
old_bpj»ax  *  -99; 
drw  grph  restart  »•  0; 

} 

setstclr(  llight_blue.  tlight_bh  ); 
setharehstyle(ihatch_index); 
setstext(&height,  taspect,  £path., 

if  (g1_graph  old_grapn)( 

g1_range  *  (float)  (g1_y2  >  g1_y1); 

eetcclor(  &blue  ); 
y_level  ■  (float)  (g1_y1  15); 

top_y_level  *  (float)  (g1_y2  ♦  10); 
bar7tg_x2,  tv_level ,  tg_x3,  itop_v_lev*l); 
bar(tlbl_x1,  ttbl_y1,  tlbl_x2,  *Ibl_y2); 

if  (g1_graph  «  1)  { 

ecg_rarige  *  i float)  (ccgjnax  -  ecgjnin); 
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> 


1  ■  ecgjsin; 

for  (  y_levet  *  (float)  (g1_y1  •  15); 
y_level  <=  (float)  g1_v2; 

v_level  +*  (float)ecg  inerifr.t  *  g1_range  /  eeg_range  )  { 
itoe(i,  label,  '0); 

Movtcurabs(ig_;.2,  lyjeve1); 
stext(  label  ); 
i  +*  ecg  incrwn; 

> 

movtsurabedlbljtl ,  Hbl_y1); 
s<*tstclr(  lbright_green,  &bnght_green); 
stextf  ecg_lbt  ); 

setstclri  ilightJHue,  llight_blue  >; 
del  tour.'); 

> 

else  if  (gt_graph  «  2  j  |  g1_grnph  ==  3)  { 

press_ range  =  (float)  (press_mex  «  press  juin); 
i  *  pressjuin; 

for  (  y_level  *  (float)  (g1_y1  *  15); 
y_level  <=  (float)  g1_y2~ 

y.. level  +*  (f loat>press_iren*nt*g1_range/press_range  ){ 
itoa(i,  label,  10); 
aovtcurafcs(4g_x2,  4y_;evet); 
atext(  label  ); 
i  +«  press_ir>crwit; 

3 

Jovtcuraba(llbi_x1,  ttoiyl); 

if  C  g1_  graph  «•  2  )  setstctrj  4fcright_bU:e.  Abrig*it_fclue); 

if  <  g1_graph  3  )  »etst:lr(  fcbright _pir>,  S-jright'^i.ik); 

atext(  pr*s8_lb!  ); 

se*.stcl  -(  fclTaf.t_biue,  fttight_Dii«»  >; 

deltcurO; 

else  sf  (g1_grach  **  4)  { 

ppi_range  *  (float)  (ppsjaax  -  pps  ^In); 
i  '  PP»_«in; 

for  (  y  tevel  «  (floe  )  (g1_y1  «  15); 
ylevel  (float)  g1_v2; 

y_level  *-  (f loot )pp6_inc runt  *  g1_r#rve  /  pps  range  ){ 
itoa(i,  label.  10); 

■oy)curab6 ( 4g_»2 ,  tylevel); 
st«xt(  label  T; 
i  **  Dp*_incrrf'it; 

} 


«ovtcur*ba(llU_x1,  tlbl_y1); 

aetr.tclr(  lb*  ight_orcnge,  tbr-ght_crange  ); 

stext(  pp*_lbl  ); 

tete;clr(  ftlight_elue,  llight_biue  ); 
deltcurO; 

) 

else  error  *  1; 

> 

cld_graph  =  g1_graph; 


if  (bp_*in  >=  old_bp_»in  ||  Ip  Max  i=  old  bp  tsax) 

( 

s@tcolcr(  Ifc'ue  >; 
y  level  =  (float-  (g2_v1  -  5); 
top_y_level  *  afloat)  (g2_y2  ♦  ?0); 
bar(lg_x2,  tyj.evol,  lg  x3,  4top_y_layel  ); 
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if  (bpjfiin  **  0)  { 

p2_ranse  *  (float)  <fl2_y2  -  >; 

bp_ranga  *  (float)  (bpjnax  bpmin); 
i  a  0; 

for  (  y_leve  *  ; ■>at)  Cg2_y1  •  5); 
y_  •  Isat)  ®2_y2; 

y_le.~  *-  vflost)100  *  g2_range  /  up_i'ange  K 
itoa(i,  label,  10); 

Movtcurab6(4fl_x2.  iylevel);' 
stext(  label  ); 
i  «  100; 

) 

) 

else  { 

itoa(bpjnin.  label,  10); 
wovtcurabs(t8_x2,  4y_ l eve l ) ; 
stext(  label  7; 

y_level  *  top_y_ level  -  (float)  25.0; 
itoa(bp_max,  label,  1C); 

*ovtcurabs(tfl_x2,  4y_level); 
stext(  label  ); 

) 

deltourO; 

> 

old_bp_min  «  bpjain; 
old  bpjnex  =  bpjnax; 

) 


void  oor* in_vs_set tings () 


irt  ch; 

>r)i  old_hr_3et,  old_ays_aet; 

;nt  i,  digit*,  maxdiflits,' 

irt  ke/.  rxj*_scrolled; 

int  perh  *  0,  hatch_index  =  1; 

float  height  *  (float)  40.0; 

float  hr_x  *  (float)  360.0; 

float  sys_x  =  (float)  535.0; 

ftoit  dias_x  =  (float)  640. 0; 

float  *an_lbl_y  *  (float)  340.0; 

chcr  diflit (’J; 

float  tcurs__x _pos[3}; 

float  x _pos; 

int  hrjair  *  30.-  hr_«ex  *  150; 
int  sysjxfn  30,  aysjaax  *  230; 
int  diasjK’n  *  10,  diasjaax  *  210; 


float 

float 

float 

float 

float 

float 

float 

float 

float 

float 

float 

float 

float 


h_x1  ■ 
h_yl  i 
(n_x1  ■ 
i*_y1  ' 
m1_x1 
s»1  yl 
m2~x1 

«2lyi 

i«3_x1 
o3_y1 
al  xl 
ally*. 
a2  yl 


(float)  185.0, 
(float)  558.0, 
(float)  125.0, 
(float)  340.0, 
*■  (float)  355.0, 

*  tfloat)  335.0, 
=  (f'oet)  530.0, 

*  (float)  335.0, 

*  (float)  635.0, 

*  (float)  335.0, 

*  (float)  205.0, 
«  (float)  285.0, 

*  (float)  230.0, 


h_x2  * 
h_y2  * 
*_x2  * 
*_y2  * 
*1_x2 
■1_y2 
m2  x2 
■2~y2 
*3~x2 
m3~y2 
al”x2 
a1~y2 
a2~y2 


(float)  725.0; 
(float)  600.0; 
(float)  290.0; 
(float)  390.0; 

=  (float)  425.0;' 
«  (float)  390.0; 

*  (float)  605.0; 

*  (float)  390.0; 
■  (float)  715.0; 

*  (float)  390.0; 
=  (float)  740.0;' 
=  (float)  335.0; 

*  (float)  280.0; 
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float  a3_y1  *  (float)  175.0,  a3_y2  *  (float)  225.0; 

float  a4_y1  *  (float)  120.0,  a4_y2  =  (float)  170.0; 

float  a5_y1  *  (float)  65.0,  e5_y2  =  (float)  115.0; 

static  int  auto_hr(4]  *  (60,80,72,40); 
static  int  auto_sys(4]  *  (120,90,160,150); 
static  int  auto_dias£4]  *  (80,50,90,70); 

char  string  £3); 

old_hr_set  *  hr_set; 
old_sys_set  «  sys_set; 

header:  setcolor(  (yellow  ); 

rbox((h_x1 ,  (h_y1,  (h_x2,  ih_y2); 
scpage(pegel); 
scapage(pagel); 
sccurset(10,16); 

kbquery(header,  si  zeof( header)  ,  (key,  (mja_scrol  led); 
stpcvt(header,  TOUP); 

setstclr((white,  (white); 
sethatchstyle((hatch_index); 
setstext ((height,  (aspect,  (path); 
manual:  rbox(ls»_x1 ,  (myl,  (*i_x2,  U»_y2); 
jhile  (  fkbhitl)  ); 
ch  *  getchO; 
if  (ch  **  27)  { 

ex:t_flag  *  11; 
goto  endrout; 

) 

if  (ch  **  0)  ch  *  getchO; 
if  (ch  **49  ||  ch  **  59)  goto  auto_1; 

if  (ch  **50  jj  ch  **  6C)  goto  auto_2; 

if  (ch  **51  j|  ch  **  61)  goto  auto_3; 

if  (ch  **52  jj  ch  **  62)  goto  auto_**, 

if  (ch  **72  ||  ch  **  75  1 1  ch  **  53  1 1  ch  **  63)  goto  ai'to  5; 

if  (ch  **  'h'jl  ch  «  *H’ )  goto  header; 

if  (ch  *=13  jj  ch  *=  '»•  ||  ch  *=  'N')  ( 

/•  Git  hr.  */ 

hr:  for  (i*0;  i<*2;  i«-»){ 

string (i)  *  '  •; 

) 

rbox((m1_x1,  (*1_y1,  J«1_x2,  tm1_y2); 

/*  Get  first  digit.  */ 
digits  *  0; 

rfn'le  ((ch  <  49  ||  ch  j  57)  «  ch  •*  27)  ch  =  getchO; 

if  (ch  **  27)  goto  manual; 

movtcurab«((hr_x,  (man.  Ibl  y); 

i toa(ch-48,  digit,  10); 

stext(  digit  ); 

deltcur(); 

stringtdigits)  *  digittO); 
ch  *  1; 
digits**; 
max_digits  *  3; 

/*  Get  remaining  digits  and  convert  to  integer  form.  */ 
tcurs_x _post0)  *  hr_x; 

digits  *  read_value(string,  digits,  :>ax_digits,  tcurs_x_pos); 
if  (oigits  **  99)  {  /*  Escape  has  been  pushed.  */ 

setcolor(  (blue  ); 
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I 

I 

I 

s 

I 
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delboxO; 

bar(l«1_x1,  I«i1_y1,  I«1_x2,  (m1_y2); 
setcoior(  (yellow  ); 
goto  -.anual; 

> 

hr_*et  *  atoi(string); 

if  (  hr_set  <  hrjpin  ||  hr_set  >  nrjnax)  { 
utsound(600,9); 
setstclr((blue,  (blue); 

for  (  digits  *  0;  digits  <=  max_digits;  dijits++){ 
x _pos  *  tcurs_x_pos [digits] ; 
»ovtcurab6((x_pos,  (flian_lbl_y); 
digitCO]  *  string[oigits]  ; 
stext(  digit  ); 
stringCdigits]  *  '  *; 

> 

deltcurO; 

set«tclr((white,  (white); 
goto  hr; 


I 

I 

I 

I 

I 

I 

I 

I 


/*  Get  sys.  */ 

sys:  for  (i*0;  i<*2;  i*+K 

stringci)  *  1  •; 

) 

rbox((«2_x1 ,  («2_y1,  (*2_x2,  S«2_>2); 

/*  Get  first  digit.  */ 
digits  *  0; 

while  ((ch  <49  ||  ch  >  57)  U  ch  !*  271  ch  =  getchO; 
if  ich  »■«  27)  { 

hr_set  *  old_hr_set; 
goto  manual; 

> 

movtcurabs((syr  »,  lman_lbl_y)  ; 
itoa(ch-43,  digit,  10); 
stext<  digit  ); 

deltcurO; 

stringtdigits]  *  digitCO]; 
ch  *  1; 
digits**; 
max_digits  *  3; 

/*  Get  retaining  digits  and  convert  to  integer  form.  */ 
tcur#_x_pos [0]  «  sys_x; 

digits  *  read_value( string,  digits,  max_digits,  tcurs_x jx> s); 
if  (digits  **  99)  C  /*  Escape  has  been  pushed.  */ 

setcolor(  (blue  ); 
delboxO; 

bar((m1_x1,  (*1_y1,  (m1_x2,  8*i1_y2); 
ber((s»2_x1,  (i*2_y1,  tai2_x2,  U n2_y2); 
setcolor(  (yellow  ); 
hr_set  *  old_hr_set; 
goto  manual; 

> 

sys_set  *  atoi(string); 


if  (  sys_set  <  sys_min  ||  sys_set  >  sys_max  )  { 
utsound(600,  9); 
setstclr((blue,  (blue); 

for  (  digits  *  0;  digits  <=  inax_digits;  digits*+K 


x_pos  *  tcurs_x j»s [digits]; 
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dias. 


movtcurabsC&x _pos,  S«wi_ibl_y); 
digit  £0]  =  stringtdigits]; 
stext<  digit  ); 
stringtdigits]  *  1  •; 

> 

deltcurO; 

setstclrdwhite,  &w.,ite); 
goto  sys; 

> 

/*  Get  dias.  */ 

for  (i=0;  i<*2;  i*+X 
stringti]  =  ' 

> 

rbox(**3_x1,  t®3_y1 ,  4m3_»2,  &n5_y2); 

/*  Get  first  digit.  */ 
digits  »  0; 

white  <(ch  <  49  1 1  ch  >  57)  U  ch  •=  27)  ch  =  getchO; 
if  (ch  =*  27)  ( 

hr_set  *  old_hr_set; 
sy*._set  *  old_sys_set; 
goto  nanus l ; 

> 

novtcumbs(tdias_x,  toen_tbt_y); 
itna‘cn-4a,  digit,  10); 
stext<  digit  ); 
deltcurO; 

stringtdigits]  r  digitCO]; 
ch  «  1; 
digit***; 
aax_dipi ts  *  3; 

/*  Get  remaining  digits  and  convert  to  integer  form.  */ 
teur»_xjx»tO]  *  dias_x; 

digits  *  raed_val’je(string,  digits,  smx  digits,  tcurs_x_pos), 
if  (digits  *=  99)  {  /*  Escape  hes  been  pushed.  */ 

setcotor(  tblue  ); 
delboxO; 

bar(*«1_x1,  tal  yl,  fan]  x2,  I«(_y2); 

bar(tm2_x1,  4m2l'x2,  *«2_y2); 

ber(U3_x1 ,  W  yi ,  im3  x?  Ln3_y2); 

setcclor(  lyellow  ); 

n<_set  =  oldjirset; 

sys  set  *  old_sys_$et; 

goto  manual; 

> 

dias_set  *  stoi (spring); 

if  (  diss_set  <  diss_ain  |j  dias_set  >«  sys  set)  { 
'Jtsocnd(600,_9); 

«etstclr(4fclue,  tblue); 

for  (  digits  *  (i;  digits  <=  max_digits;  digits+*)( 
x_pos  *  tcurs_x_pos [digits] ; 

«ovtcurebs(4x_pos,  Sflian_lbl_y); 
digitCO]  *  stringtdigits]; 
stextf  digit  ); 
stringtJigits]  *  • 

) 

deltcurO; 

setstclrdwhite,  Uhite); 
goto  dias; 

) 
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auto  1 : 


auto  2: 


auto  3: 


auto  4: 


> 

else  if  (ch  *=  'a*  ||  eh  ==  1 A '  1 1  ch  *=  77  1 1  ch  ■**  80)  { 
rbox(&a1_x1,  4a1_y1 ,  4a1_x2,  4a1_y2); 
while  (  IkbhitO  ); 
ch  =  getchO; 
if  (ch  *=  27)  C 

exit_f  lag  =  11;' 
goto  end  rout; 

) 

if  (ch  =*  0)  ch  *  getchO; 
if  (ch  =*49  |j  ch  ==  59)  goto  auto_1; 

if  (ch  =  5*  |j  ch  ==  61)  goto  auto_3; 

if  (ch  ==52  j|  ch  *=  62)  goto  au*,o_4; 

if  (ch  =*53  |j  ch  =*  63)  goto  auto_5; 

if  (ch  =*  ‘h1  ||  ch  ==  ’H1)  goto  header; 
if  (ch  =*72  ||  ch  *=  75  j|  ch  ==  'm1 
||  ch  ==  'M')  goto  wanual;' 
if  ich  **  ‘a1  ||  ch  *=  ‘A*  ||  ch  ==  77 

||  ch  ==  80  1 1  ch  ==  50  ||  cr  =■•  60)  ' 
rhox(ia1_xi,  4a2_y1,  Ia1_x2,  4a2_y2); 
while  (  ikbnitO  ); 
ch  *  getchO; 
if  (ch  **  27)  { 


exit_fleg  *  11; 
goto  end  rout; 

) 

if  (ch  **  0)  ch  *  getchO; 

if  (ch  **  72  | |  ch  **  75  ||  ch  *=  49  ||  ch  -=  59)  goto  euto_1; 

if  (ch  *=50  |j  ch  *»  60;  goto  auto_2; 

if  (ch  **52  j|  ch  **  62)  goto  auto_4, 

if  (rh  «*  53  j |  ch  *»  63)  goto  auto_5; 

if  (ch  «*  ||  ch  **  ’M1)  goto  aanuel; 

if  (ch  **  ■ h •  j|  ch  **  • H • >  goto  header; 

if  (ch  **  ‘a1  j|  ch  **  'A1  1 1  ch  **  77  1 1  cl;  **  80 

| |  ch  **  51  | |  ch  **  61)  { 

rbox(te1_x1,  ta3_y1,  4a1_x2,  4a3_y2); 
while  (  Ikbh’tO  ); 

•-h  *  getchO; 
if  (ch  **  27)  { 


axit_flag  *  11; 
goto  end  rout; 

> 

if  (ch  **  0)  ch  *  getchO; 

if  (ch  **49  ||  ch  **  59)  goto  auto_1; 

if  (ch  **51  j|  ch  **  61)  goto  auto_3; 

if  (ch  **53  jj  ch  **  63)  goto  auto_5; 

if  (ch  **  'a'  j|  ch  **  1 M ' )  goto  manual; 

if  (ch  **  1 h '  jj  ch  ==  'H')  goto  header; 

if  (ch  **  72  |j  ch  **  75  ||  ch  *=50  ||  ch  *=  60)  goto  auto_2; 

if  (ch  **  'a'  j|  ch  ==  'A'  ||  ch  ==  77 

||  ch  **  80  ||  ch  ==  52  ||  eh  *=  62)  { 
rbox(ta1_x1,  4a4_y1,  4a1_x2,  4a4_y2); 
while  (  TkbhitO  ); 
ch  *  getchO; 
if  (ch  **  27)  { 

exit_flag  *  11; 
goto  end  rout; 

> 

if  (ch  **  0)  ch  *  getchO; 

if  (ch  **49  ||  ch  ==  59)  goto  auto_1; 
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if  (ch  **50  ||  ch  **  60)  goto  auto_2; 

if  (ch  **52  ||  ch  **  62)  goto  auto_4; 

if  (ch  **  'm1  ||  ch  i*  •  M 1 )  goto  manual;' 

if  (ch  **  1 h ’  |j  ch  =-  'H1)  goto  header; 

if  (ch  =*  72  | j  ch  *=  75  j |  ch  ==  51  ||  ch  =-  61)  goto  au-o_3; 

if  (ch  **  'a'  ||  ch  *=  'A1  1 1  ch  =*  77 

||  ch  ==  80  |!  ch  ==  53  | j  ch  ==  63)  { 

8utn_5:  rbox(4al_x1 ,  4a5_y1,  4a1_x2,  4a5_y2)r, 

trfiile  (  TkbhitO  ); 
ch  =  getchO; 
if  (ch  **  27)  { 
exit_flag  *  11; 
goto  end_rout; 

) 

if  (ch  ==  0)  ch  =  petchO; 

if  (ch  *=50  I |  ch  *=  60)  goto  suto_2; 

if  (ch  **51  I j  ch  *=  61)  goto  auto_3; 

if  (eh  **53  |j  ch  **  63)  goto  auto_5; 

if  (ch  **  1 h *  ||  ch  **  1 H 1 )  goto  header; 

if  (ch  **  72  ||  ch  **  75  |j  ch  **52  ||  ch  =*  6?)  goto  auto_4;‘ 
if  (ch  **  'a'  j|  ch  **  'A'  ||  ch  **  49  |j  ch  **  59)  goto  autol; 
if  (ch  **  77  | j  ch  **  80  1 1  ch  **  'm*  |j  ch  **  * N 1 >  goto  manual; 
else  < 

calflag  *  11; 

> 

) 

else  { 

hr_set  *  auto_hr(3j ; 
sysset  *  auto_8ys 13] ; 
dies_set  *  auto  dias[3); 

> 

y 

else  ( 

hr_set  *  auto_hr[2); 
sysset  *  auto_sys[2); 
dias_set  *  autodi  as  (2)  ; 

> 

} 

else  { 

hr_set  *  auto_hr[1); 
sys_set  *  auto  sysCI); 
dias  set  *  auto  diastl); 

} 

> 

else  < 

hr_set  *  auto_hr(0); 
sysset  *  #uto_syst0]; 
dies  set  *  auto  diasCO]; 

> 

> 

else  goto  manual; 
end_rout : 

delbox(); 

} 

int  read_value(char  ‘string,  int  digits,  int  max  digits,  float  ‘tcurs  x  pcs) 

( 

int  ch  =  0; 
cnar  digit {1J: 

float  rcurs_>-_pos  *  (float)  340.0; 
float  x_pos; 
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int  index; 

/*  Until  Enter  <  13)  is  pressed,  wait  for  keypresses.-  While 

there  are  less  than  **x_digits,  accept  new  digits  <48-57)  and 
increment  size  cf  string.  When  backspace  (8)  is  pressed, 
decrement  number  of  digits.  */ 

while  (ch  !*  13  M  ch  !*  27)  { 

while  <  <ch  <  48  ||  ch  >  57)  W  ch  '  =  13  U  ch  !=  S 
U  ch  1  =  27)  ch  =  getchO; 
if  (ch  ==  8)  { 

digits--; 

x_pos  *  tcurs_x_  x5S<diaits] ; 
movtcurabs  ( fcxjy/s ,  t  tcurs_y _pos ) ; 
setstclr(&blue,  iblue); 
digitCO]  =  stringldigits); 
stext(  digit  ); 
deltcurO; 
stringtdigi ts)  *  ' 
movtcurabsC&x _p os,  4tcurs_y_jx>s); 
setstclrCfcwhi te,  twhite); 

) 

else 

if  (  ch  >-  s8  IX  ch  «  57)  { 

if  (digits  w  max_digits)  utsound(lowj>itch,  short_duration); 
else  { 

inqtcur(ix_pos,  itcurs_y_pos ,  lindex); 
tcurs_x_pos (digits)  *  r._pos; 
itoo(ch-48,  digit,  )0); 
stext(  digit  ); 
deltcurO; 

string(digita)  *  a'ig’t(O); 
digits**; 

> 

) 

if  (  ch  3*  27  )  digits  *  99; 
if  (  ch  I*  13  fit  ch  I*  27)  ch  =  1; 

) 

return  (digits); 


/* 

/'■  disable_ints(  state  ) 

/* 

/*  This  routine  disables  the  interrupt  capability  on  the  OAS-8  board  by  */ 
/*  writing  a  0  to  the  bit  of  the  control  register  w'-'ch  is  connected  to  */ 
/*  the  output  enable  line  of  the  tri -state  buffer  which  buf  ers  the  out-  V 
/*  put  of  the  interrupt  flip-flop.  The  rest  of  the  control,  word  is  left  */ 
/*  unchanged.  The  function  returns  the  new  control  reg  contents.  */ 


*/ 

V 

*/ 


int  disable_ints(  state  ) 
int  stete; 

< 

state  =  state  t  -ENABL£_iNTS  ;  /*  change  only  the  int.  enable  bit 


*/ 

outp(  DAS8_CONTROL ,  state  );  /*  write  to  DAS-8  control  register 

V 

return(  state  );  /*  return  the  revised  control  word 

V 
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/*  This  routine  is  the  inverse  of  the  above  . 

/*  This  routine  also  clears  the  interrupt  ff  on  the  DAS-8  board. 


int  enable_ints(  state  } 
int  state; 

{ 

state  =  state  |  ENABlE_!NTS  ; 


outp(  DAS8  CONTROL,  state  >; 
*/ 

return(  state  >; 


int  set_imr(  int  chan,  on  off  ) 


/*  change  only  the  int.  enable  bit 


/*  write  to  DAS-8  control  register 
/*  return  the  revised  control  word 


/*  programs  the  8259  mask  rrgistcr 


int  int  chan;  /*  the  interrupt  bit  to  set 

*/ 

int  on  off;  /*  the  value  (  1  or  0  )  to  set  the  mask  to 

»/ 

int  mask  j ,  mesk_o; 
int  i*0; 

mask_i  *  inp<  PIC  +  1  ); 
if<  on_off  **  ON  K 

mask_o  *  mask_i  &  -(  0x01  «  int_chan  );) 
else 

maskjj  1  maak_i  |  (  0x01  «  int_chan  ); 
outp<  PIC  ♦  1,  mesk_o  ); 

while(  (»ask_i  *  irp<  PIC  +  1  )  1=  mask  o  ))  /*  if  mask  change  didn’t 
take*/ 

C 

outp<  PIC,  0x20  );  /*  put  out  general  EOI  instruction  V 

outp(  PIC  +  1,  mask_o);  /*  re-write  mask  */ 

iff  ++i  >  10  ) 

< 

printfffailed  writing  mesk\n"); 
returnf  1  ); 

} 

) 

return(O);  /*  success  */ 


int  set_ti»er(  entr,  mode,  f  in,  f  or  n  )  */ 

*/ 

This  routine  initializes  the  specified  counter  in  an  8254  to  the*/ 
specified  mode  and  wo.cform  period  or  number  of  events.  */ 

BCD  mode  NOT  supported.  */ 

The  function  returns  the  16-bit  count  written  to  the  8254  if  ‘he*/ 
requested  action  was  reasonable  or  possible.  A  -1  return  vali'e  */ 
implies  errant  request.  */ 


int  set_timer(  entr,  mod'.-,  f_or_n  ) 

int  entr; 
int  mode; 


/*  the  selected  counter 

/*  the  selected  mode 
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double  fjn;  /*  the  input  frequency  */ 

double  f~or  n;  /*  output  frequency  or  nunber  of 

events  */ 

( 

int  commend; 
int  count; 
long  int  big_one; 

if((cntr  >*  0)M(cntr  <  3)ii(mode  >=  0)M(mode  <  6)&&(f_or_n  >  0.0)) 

{ 

commend  *  cntr  «  6;  /*  shift  counter  #  to  bits  7  end  6  */ 

commend  =  coesaand  |  0x30;  /*  always  write  a  two-byte  count  */ 

cownand  *  coemend  |  (  mode  «  1  );  /*  put  mode  in  bits  3-1  */ 

outp<  CNT  CTRL  ,  commend  );  /*  write  the  control  word  out 

*/ 

switch  (  mode  ) 

{ 

cese  0:  count  «  (int)  f_or_n  1;  /*  terminal  count  */ 

if(  count  <  0  )  /"  if  count  too  lo*/ 

return(  -1  ); 

outp(  CHT_0  ♦  cntr,  count  );  /•  lo  byte  */ 

outp(  CNT_0  ♦  cntr,  count  >>  8  );/*  hi  byte  */ 
break; 

case  1:  printf(M  Sorryf  Node  1  of  the  8254  not  currently  siajported.W); 
break; 

case  2: 

case  3:  big_one  *  (long)(  (f_in/f_or_n  )  +  .5  >; 

if<  bigone  >  OxFFFF  )  /*  if  count  is  too  big  */ 

return<  -1  );  /*  return  error  code  */ 

couit  *  (int)  big_one;  /*  coerce  big_one  to  int*/ 

if(  count  <  2  )  /*  if  count  is  too  smell  */ 

return(-l);  /*  return  error  code  */ 

outp<  CNT_0  ♦  cntr,  OxOOFF  t  count  );  /*  lo  byte  */ 

outp(  CNT_0  +  cntr,  OxOOFF  &  (count  »  8));  /*  hi  byte  */ 
break; 

case  4:  printf("  Sorry!  Node  4  of  the  8254  not  currently  supported. \n"); 
break; 

cese  5:  printfC*  Sorry!  Node  5  of  the  8254  not  currently  sipported.\n“); 
break; 

default:  return(  -1  );  /*  unknown  mode  */ 

) 

) 

else  /*  error  !  */ 

return(  -1  );  /*  errant  request  */ 

return(  0  ); 

> 


/*  */ 
/*  int  read  status (  cntr  )  */ 

/*  ~  */ 

/*  This  routine  reads  the  status  from  the  designated  counter  in  the  */ 

/*  OAS-8's  8254.  The  return  value  is  equal  to  status  if  the  counter  */ 

/*  nusber  is  valid  (i.e.  0  <=  n  <■  2),  or  -1  if  invalid.  */ 


int  read_status(  cntr  ) 
int  cntr; 

{ 

int  command; 

if(  (  cntr  »  0  )W(  cntr  <  3  )  )  /*  cntr  is  valid... 

*/ 
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co amend  *  <  0x02  <<  cntr  )  j  QxEO;  /*  iatch  status  only  */ 
outpf  CNT_CTRL,  command  );'  /*  write  the  latch  cornnand*/ 

return  (  inpf  CMT_0  +  cntr  )  );;  /*  return  the  status 

> 

return(  -1 


voic  ane_isr(pregs,  pisrblk,  rmsg) 


vo'n  ar»_'«r/  — pisrblk,  owes) 

AlLREC  *pregs; 

ISRCTRL  ‘pisrblk; 
iSRMSG  *pmsg; 

( 

int  ckjway; 

'Pt  1  rr;' 

int  a2d_date; 

long  mt  teepdata; 


/*  all.  CPU  registers  when  iSR  irrvokec  */ 

/*  ptr  to  2 SR  control  block 

/*  used  by  dispatcher  *y 

/*  just  that.  */ 

/*  ;sr  version  of  the  int.  -ea,  *eg  */ 
/*  The  input  fror  the  A/D  converter  *• 


static  int  channel  *  Of 


/*  A/D  channel  to  be  converted 


cfcjwiy  -  (press  <  pregs)  U  (pass  >  pasg); 
duiwry  =  (pisrblK  <  p’srblk); 


/*  avoid  compiler  ERRMSG*y 


••rr  =  (inp(  DAS8_STATUS  )  >>  4}  t  0x03;  /*  get  the  int.:  rep,  reg.;  */ 

aas«_state  *=  da*8_state  j  D3_0UT_HI:  /*  set  ext  "in  serv"  flag  */ 
outp(  DAS2_CONTROL,  dasflstate  );  /*  int.  and  clear  int  FF*/ 

sw’tchf  fT  ) 

( 

case  0:  pt  intff"  **»  ERR :■  INT  SRC  IKOETERKIMATE  ***\n">; 

outp{  PIC,  SPEC_SOI  /’  Issue  specific  EC! ,  */ 

da*8_state  *  aas8_ttate  l  ~03_0UT_HI;  /*  clear  ext  i3r  b I «.  */ 

outp<  5AS8_Ct*TROt.,  dasflstate  ); 
return; 


case  FRAME: 

iff  end  frame  ) 


Frame  clock  */ 

/*  If  not  internet ing  self:*/ 


♦♦frame;  /*  Increment  frame  #  */ 

end_frame  *  MO;  /•  Naintain‘‘end  of  frame“flg*/ 

das8_state  *  daaB_atat«  l  -D3_OUT_MI;  /*  clear  e„t  isr  bit  */ 
outpf  DASa_COMTRoT,  das8_';tate  ); 

xitof  START_12_R!T,  0x00  >;  /•  Start  12-bit  conversion.*/ 


printf ("O' ")f 

outpf  PIC,  SPECJCI  );  /*  Issue  soecific  EOi ,  */ 

return; 

case  A20:  /*  An  A/D-generated  interrupt  */ 

a2d_d«ta  =  (  inp{A2D_L0_8YTE)  >>  A  }  &  OxOOFf  /*  get  lo  byte  •/ 

a2c‘~data  **  (  inp(A2DJl”BTTE)  «  i  )  t  OxFFO;  /*  add  hi  byte  */ 

a2d_data  •=  0x0800;  /*  convert  offset  to  2's  compliment  */ 

/*  Increment  A/D  mux  channel:  */ 

das8_stats  =  t'das8_state  l  -0x07)  |  ((channel  +  !)  X  N_A223_CHAM ) ; 
outp(  DAS8_COWTROi,  das8_state  );' 
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switch'  channel  ) 

{ 

case  ART_P ;;  /*  Arterial  pr  ^sure  */ 

tempdata  =  (tone  'nt)X_ert_p  *  '.long  'nt>e2d_cnta; 

artjoress  =  (  ( 'rst)(tl«ioGata/dong  ir,t)100)  -  off_ar;_p); 
tf{  art _press  <=0  > 

«rt_press  =  0: 
if(  cat  flag  ==  C  >  { 

oata(  a _p_index  I  tar;  =  art_press:, 
data_base[  a_p_inciex  j  =  art_press;' 

> 

else  ( 

dstat  »_p_in6ex  3  (ar3  *  a2a_data; 
a_p_iroex  =  ♦♦aj3_index  X  HAXJtEASv'RED ; 
preax, 

> 

<•  The  following  cooe  computes  the  new  actor  velocity  in  rpe,  given  the  */ 

/•  voltage  representing  the  pressure  error  signal.,  */ 

*otor_v  -  bp_d1  [bp_incQ  ; 

dac_v  =  (mt)((Ulong  :nt )bp_dC Cbc_ind3  *  (long  int)atpha)  + 

(dong  int)ninatph8  *  (long  int)beta);  /  (long  intdOC)- 

if(  dac  v  <  300  )  dec_v  -  800;' 

>f(  aac_v  >  4095  )  aacv  *  4095; 

data[  a  p  ’ndex  3  Cec3  =  ecg_des  ({bp _inovcjrrent_lengtn-2C)  X  currer.t_  ength] 

Po  ind  *  -t-t-op  ind  X  current  length; 
temxtata  *  (long  tnt)d6C_v  *  dong  int>6000;' 
data{  a_p_index  3  (pp)  =  (int)(terepdeta  /  4095); 

a_p_ index  *  +*a_p_..nOex  X  “AXMEASURED : 

outp(0AC0_h! , (oac_v  >>  4 )); 
outp(DACO_LC, (dac_v  <<  4,)' 
outp(DAC1_Hi , («iotor_v  »  43); 
outp(0ACl_L0,  («ctor_v  <<  4 > > ;' 
break; 

case  CUFF_P: 

tempdata  =  (long  int)k_cuff_p  *  (long  ;nt;a2c.:  data; 

cuf_press  *  (  (int)(te*pdata/done  int)10C)-o?f _euff_p); 
if(  cuf_press  <=0  ) 
cuf_press  «  0; 
if(  catftag  «  0  )  { 

data[  c _p  index  3  Ccu3  =  cuf  press; 

> 

else  < 

datat  c _p_index  3  icu)  =  aZ3_oata; 
c_p_index  =  e+c _p_index  X  MAXJtEASURED; 
break; 

) 

c _p_index  =  index  X  HAXMEASU8ED; 

i f (  sys_check  ==  0) 

{ 

cuf  press  =  cuf_press  (10  *  sys_vaive); 
it'.  cjf_press  >*  200  ) 

( 

**sys_check; 


I 
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> 

> 

else  if{  sys_check  **  1  )  { 

cuf_pre*s  *  cuf_press  •  {10  *  sys_vatve);; 
if<  cuf_press  <*  15C  5  ( 

♦♦sys_check; 

aas8_ttate  *  des8_state  j  D2_0UT_HI; 
outp(DAS8_C0t<TR0l  ,das3_state);' 

) 

> 

else  syseheck  *=  8L££D_T!»4£) 

{ 

oasB_state  =  das£_state  &  -020UTHI; 
outp(DAS8J2*TROi. ,  oasfis  t  a  te ) ; 

♦♦syseheck; 

) 

else  if(  sys  checx  >  BLEED  TiiAt' 

{ 

♦♦syseheck; 

cu*_press  *  euf_press  •  (diasvalve  *  10}; 
if (  cuf_press  <  0  )  syseheck  -  0; 

) 

else  ♦♦sys  eheck;' 
break; 

case  VEia_0: 

teapdata  *  (loro  int)r_vein_p  *  (long  ir.t)a2d_data: 

vein _pre as  *  (  { intHteacdat  s/( loos  int>100)  off_vein_p);' 
if(  vein_press  <=0  ) 
veinjjreaa  *  C;' 
if<  calflag  **  0  )  { 

oataC  v_p  index  Hvej  =  vein_press;' 

} 

else  { 

data!  vj>_mdex  ]  tve)  =  a2d_data; 

> 

v_p_ index  *  -m-vj)  index  X  KAX_*EASURED; 
break;' 

case  CORE_T : 

teapdata  *  (Ions  int)k_core_t  *  (long  ->t)a2d_cla£e;' 

core_te*p  *  (  (int)(taapdata/(long  int>100)  ■  off  core_t); 
datal  c_t_index  Hco]  *  core_terg>;' 
e_t_index  *  ♦+c_t_index  X  HAXJtEASURED; 
break; 

case  SKIH_T : 

tewpdeta  =  (long  int)k_akin_t  *  (tong  int)a2d_data;' 

akin_ta«p  *  (  ( int)(teagidata/(iong  int)100)  •  off_skin_t);' 
datat  s_t_ index  ] Csk3  *  skin_te«p; 
s_t_ index”*  ♦♦s_t_index  X  AAX_HEASURED ; 
break; 

default:  printf(  "  CHAR  ERR  \n"  ); 
break; 

> 

das8_*tate  *  das«_state  t  -03_0UT_HI; 
outp(  DAS8_CONTROL ,  darfstate  ); 

channel  *  ♦♦channel ; 
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iff  channel-  >«  N_A23_CHAH  )  /*  I*  all  A/D  channels  seamed:  */ 

{ 

chemei  *  0;  /*  Reset  charnel  counter  */ 

end_fra«e  =  YES;  /*  flag  end  of  ♦raise  */ 

lastjaeasured  *  ♦+ lastjaeasured  X  HAX  HEASURED; 

> 

else  { 

outpf  START_12  BIT,  0x00  );  /*  Start  12-Dit  conversion.*/ 

) 


outpf  PIC,  SPEC_EO!  /*  .. ssue  specific  EOI  */ 

return; 
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